   )
 
 
-(defsubst jpw-unfill-skip-line (next-nonws-char)
-  (char-equal (char-after next-nonws-char) ?\<)
-  )
-
-
-(defun jpw-lj-display-tag-analysis ()
-  "Show the results of `jpw-lj-tag-nested-analysis' in the *Messages*
-buffer.
-{jpw: 03/06}"
+(defsubst jpw-lj-unfill-buffer ()
   (interactive)
-  (jpw-lj-tag-nested-analysis)
-  (message "%S" jpw-lj-tag-analysis-cache)
+  (jpw-unfill-buffer t)
+  )
+
+
+(defsubst jpw-lj-unfill-paragraph ()
+  (interactive)
+  (jpw-unfill-paragraph t)
+  (if (looking-at "\\s ")
+      (re-search-forward "\\S " nil 't)
+    )
+  )
+
+
+;; Aliases.  These depend on earlier function & variable definitions.
+
+
+(if (eq jpw-lj-html-size-function 'jpw-html-size-smallbig)
+    (defun jpw-lj-insert-size () 
+      (interactive) 
+      (jpw-html-size-smallbig))
+  ;; else
+  (defun jpw-lj-insert-size () 
+    (interactive) 
+    (jpw-html-size-relative))
   )
 
 

  ) ;;end defconst


;; Simple regexp for quoted strings, whether single or multiline.
(defconst jpw-lj-font-lock-string-face-key-2
  (list
   (concat
    "\\(\"[^\"]+\"\\)"
    ) ;;end concat
   '(1 'font-lock-string-face prepend)
   ) ;;end list
  ) ;;end defconst


;; Regexp for nested multiline "big tags".  This regexp is more general than
;; the one for underline, bold, or italic.  It matches tags that are more
;; than one character long, and handles tag attributes.
(defconst jpw-lj-font-lock-font-face-key-2
  (list
   (concat
    "\\(<font\\)"
    "=[^>]+"
    "\\(>\\)"
    "\\([^<]*\\(<[^/]+/[^f][^]]*>[^<]*\\)*\\)"
    "\\(</font>\\)"
    ) ;;end concat
   '(1 'jpw-lj-tag-face t)
   '(2 'jpw-lj-tag-face t)
   '(3 'jpw-lj-font-face append)
   '(5 'jpw-lj-tag-face t)
   ) ;;end list
  ) ;;end defconst


;; Regexp similar to `jpw-lj-font-lock-font-face-key-2', but does not expect
;; tag attributes.
(defconst jpw-lj-font-lock-code-face-key-3
  (list
   (concat
    "\\(<code>\\)"
    "\\([^<]*\\(<[^/]+/[^c][^]]*>[^<]*\\)*\\)"
    "\\(</code>\\)"
    ) ;;end concat
   '(1 'jpw-lj-tag-face t)
   '(2 'jpw-lj-code-face t)
   '(4 'jpw-lj-tag-face t)
   ) ;;end list
  ) ;;end defconst



      (define-key jpw-lj-mode-map "\M-gu" 'jpw-html-underline)

      (define-key jpw-lj-mode-map "\M-go" 'jpw-html-code)

      (define-key jpw-lj-mode-map "\M-gd" 'jpw-html-del)

      (define-key jpw-lj-mode-map "\M-g\M-s" 'jpw-lj-insert-size)


      (define-key jpw-lj-mode-map "\M-p\C-i" 'html-image)

      (define-key jpw-lj-mode-map "\M-pa" 'jpw-html-href-anchor)
      (define-key jpw-lj-mode-map "\M-p\C-u" 'jpw-html-href-anchor)

      (define-key jpw-lj-mode-map "\M-pl" 'jpw-lj-insert-list)

