 
 ;;----------------------------------------------------------------------
 ;;
-;; Custom Behavior
-;;
-;; Activate behaviors not used regularly, but used nonetheless.
-;;
-
-
-(defun jpw-read-info-dir(file)
-  "Invoke Info on the named file, which should be a .info file or info
-top-level directory file."
-  (interactive "fInfo file to open: ")
-  (find-file file)
-  (Info-on-current-buffer)
-  )
-
-
-(defun set8tab ()
-  "Sets tab width to 8
-{jpw: 7/2000}."
-  (interactive)
-  (setq tab-width 8)
-  (recenter))
-
-
-(defun set4tab ()
-  "Sets tab width to 4
-{jpw: 7/2000}."
-  (interactive)
-  (setq tab-width 4)
-  (recenter))
-
-
-(defun c-no-comment-stars ()
-  (interactive)
-  ;; For Emacs 20.* or earlier
-;  (setq c-comment-continuation-stars "")
-  (setq c-block-comment-prefix "")
-)
-
-
-(defun do-comment-line-break ()
-  "Calls the function that the variable `comment-line-break-function'
-is set to
-{jpw: 3/2002}."
-  (interactive)
-  (funcall comment-line-break-function))
-
-
-(defvar jpw-utf-in-use nil
-  "Used internally.  Do not modify.  {jpw; 03/2007}")
-(defun jpw-load-utf()
-  "Force use of Mule UTF encodings. {jpw; 11/2005}"
-  (interactive)
-  (if (boundp 'mule-version)
-      (setq jpw-utf-in-use t)
-    )
-  (if (not jpw-utf-in-use)
-      (progn
-        ;; Taken from `loadup.el'
-        (load "international/mule")
-        (load "international/mule-conf.el") ; Don't get confused if someone
-                                            ; compiled this by mistake.
-        (load "international/mule-cmds")
-        (load "case-table")
-        (load "international/utf-8")
-        (load "international/utf-16")
-        (load "international/characters")
-        (load "international/ucs-tables")
-        (setq jpw-utf-in-use t)
-        )
-    )
-  )
-
-
-(defun decode-utf16 ()
-  "Decode a buffer in utf-16
-{jpw: 11/2005}."
-  (interactive)
-  (jpw-load-utf)
-  (decode-coding-region (point-min) (point-max)
-                        'mule-utf-16-le-with-signature))
-(defalias 'decode-xml 'decode-utf16)
-
-
-(defun decode-entire-buffer-utf8 ()
-  "Decode a buffer in utf-8
-Unfortunately, it doesn't work too well.
-
-{jpw: 03/2007}."
-  (interactive)
-  (jpw-load-utf)
-  (decode-coding-region (point-min) (point-max) 'mule-utf-8))
-
-
-(defun revert-to-utf8 ()
-  "Reread the current buffer, using utf-8 encoding this time.
-Unfortunately, it doesn't work too well.
-
-{jpw: 03/2007}."
-  (interactive)
-  (jpw-load-utf)
-  (revert-buffer-with-coding-system 'mule-utf-8)
-  ;;(let ((my-file-name (buffer-file-name (current-buffer)))
-  ;;      ;; Set this only for the duration of the scope of the (let ...).
-  ;;      (coding-system-for-read 'mule-utf-8)
-  ;;      (coding-system-for-write 'mule-utf-8)
-  ;;      );; end varbindings
-  ;;  (find-alternate-file my-file-name)
-  ;;  )
-  ;;(setq buffer-file-coding-system 'mule-utf-8)
-  )
-
-
-(defun use-utf8 ()
-  "Use the utf-8 encoding system in this buffer.  Does so by performing a
-`revert-to-utf8'.
-
-{jpw: 05/2008}."
-  (interactive)
-  (jpw-load-utf)
-  (revert-buffer-with-coding-system 'mule-utf-8)
-  (setq buffer-file-coding-system 'mule-utf-8)
-  )
-
-
-(defun jpw-sh-mode-font-lock-enhance ()
-  "Modify the variable `sh-font-lock-keywords-var' to correctly highlight
-function definitions in bash and ksh.
-
-{jpw:  08/2010}"
-  (let ((font-lock-sh-fn-name-keywords
-         ;; Function names.  Taken from sh-script.el
-         (list
-          '("^\\(\\sw+\\)[ \t]*(" 1 font-lock-function-name-face)
-          '("\\<\\(function\\)\\>[ \t]*\\(\\sw+\\)?"
-            (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
-          ))
-        (modified-keywords-var (list))
-        shell-specific-keywords
-        shell-type
-        new-keyword-regex
-        ) ;; end varbindings
-
-    (dolist (shell-specific-keywords sh-font-lock-keywords-var)
-      (setq shell-type (car shell-specific-keywords))
-      (if (or (equal shell-type 'bash)
-              (equal shell-type 'ksh)
-              (equal shell-type 'ksh88))
-          (dolist (new-keyword-regex font-lock-sh-fn-name-keywords)
-            (add-to-list 'shell-specific-keywords new-keyword-regex 't)
-            )
-        ) ;;end if
-      (add-to-list 'modified-keywords-var shell-specific-keywords 't)
-      )
-     (setq sh-font-lock-keywords-var modified-keywords-var)
-    ) ;; end let
-  )
-
-
-;;----------------------------------------------------------------------
-;;
 ;; Autohook-specific functions.
 ;;
 

    (delete-region oldeolpos (point))
    )
  )


(defsubst jpw-unfill-paragraph-engine (remove-blank-lines

  )


;;----------------------------------------------------------------------
;;
;; Code-Doc defuns.
;;


(defun jpw-insert-doc-unitag (tagname)
