From xemacs-m  Tue May  6 16:30:01 1997
Received: from mercury.Sun.COM (mercury.Sun.COM [192.9.25.1])
	by xemacs.org (8.8.5/8.8.5) with SMTP id QAA15104
	for <xemacs-beta@xemacs.org>; Tue, 6 May 1997 16:30:00 -0500 (CDT)
Received: from Corp.Sun.COM ([129.145.35.78]) by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id OAA28215 for <xemacs-beta@xemacs.org>; Tue, 6 May 1997 14:40:41 -0700
Received: from legba.Corp.Sun.COM by Corp.Sun.COM (SMI-8.6/SMI-5.3)
	id OAA04946; Tue, 6 May 1997 14:29:29 -0700
Received: by legba.Corp.Sun.COM (SMI-8.6/SMI-SVR4)
	id OAA19959; Tue, 6 May 1997 14:29:04 -0700
To: xemacs-beta@xemacs.org
Subject: more HTML nits, patch attached
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: multipart/mixed;
 boundary="Multipart_Tue_May__6_14:29:04_1997-1"
Content-Transfer-Encoding: 7bit
From: Gary.Foster@Corp.Sun.COM (Gary D. Foster)
Date: 06 May 1997 14:29:04 -0700
Message-ID: <bcirafke1cv.fsf@corp.Sun.COM>
Lines: 290
X-Mailer: Gnus v5.4.50/XEmacs 20.2(beta4)

--Multipart_Tue_May__6_14:29:04_1997-1
Content-Type: text/plain; charset=US-ASCII

Ok, more HTML nits, seems to be my day to be picky.

hm--html-keys.el, hm--html-menus.el, and hm--html.el has formatting
and formatted spelled as "formating" and "formated" in numerous
places.  I originally fixed only the user visible things (popup menus
and such) but ended up fixing them all.

Here's a patch, attached.

-- Gary F.


--Multipart_Tue_May__6_14:29:04_1997-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="html.patch"
Content-Transfer-Encoding: 7bit

--- lisp/hm--html-menus/hm--html-keys.el.orig	Tue May  6 14:05:25 1997
+++ lisp/hm--html-menus/hm--html-keys.el	Tue May  6 14:15:32 1997
@@ -216,115 +216,115 @@
     [(meta d)] 'hm--html-add-document-division-to-region)
   )
 
-(defvar hm--html-noregion-formating-paragraph-map nil
-  "Noregion sub keymap for inserting paragraph formating elements.")
+(defvar hm--html-noregion-formatting-paragraph-map nil
+  "Noregion sub keymap for inserting paragraph formatting elements.")
 
-(if hm--html-noregion-formating-paragraph-map
+(if hm--html-noregion-formatting-paragraph-map
     ()
-  (setq hm--html-noregion-formating-paragraph-map (make-sparse-keymap))
-;  (define-key hm--html-noregion-formating-paragraph-map
+  (setq hm--html-noregion-formatting-paragraph-map (make-sparse-keymap))
+;  (define-key hm--html-noregion-formatting-paragraph-map
 ;    "o" 'hm--html-add-plaintext)
-  (define-key hm--html-noregion-formating-paragraph-map
-    "p" 'hm--html-add-preformated)
-  (define-key hm--html-noregion-formating-paragraph-map
+  (define-key hm--html-noregion-formatting-paragraph-map
+    "p" 'hm--html-add-preformatted)
+  (define-key hm--html-noregion-formatting-paragraph-map
     "b" 'hm--html-add-blockquote)
-  (define-key hm--html-noregion-formating-paragraph-map
+  (define-key hm--html-noregion-formatting-paragraph-map
     "\C-b" 'hm--html-add-basefont)
-  (define-key hm--html-noregion-formating-paragraph-map
+  (define-key hm--html-noregion-formatting-paragraph-map
     "f" 'hm--html-add-font)
-  (define-key hm--html-noregion-formating-paragraph-map
+  (define-key hm--html-noregion-formatting-paragraph-map
     "c" 'hm--html-add-center)
-  (define-key hm--html-noregion-formating-paragraph-map
+  (define-key hm--html-noregion-formatting-paragraph-map
     "\C-c" 'hm--html-add-comment)
-;  (define-key hm--html-noregion-formating-paragraph-map
+;  (define-key hm--html-noregion-formatting-paragraph-map
 ;    "l" 'hm--html-add-listing)
-;  (define-key hm--html-noregion-formating-paragraph-map
+;  (define-key hm--html-noregion-formatting-paragraph-map
 ;    "a" 'hm--html-add-abstract)
   )
 
-(defvar hm--html-region-formating-paragraph-map nil
-  "Region sub keymap for inserting paragraph formating elements.")
+(defvar hm--html-region-formatting-paragraph-map nil
+  "Region sub keymap for inserting paragraph formatting elements.")
 
-(if hm--html-region-formating-paragraph-map
+(if hm--html-region-formatting-paragraph-map
     ()
-  (setq hm--html-region-formating-paragraph-map (make-sparse-keymap))
-;  (define-key hm--html-region-formating-paragraph-map
+  (setq hm--html-region-formatting-paragraph-map (make-sparse-keymap))
+;  (define-key hm--html-region-formatting-paragraph-map
 ;    "o" 'hm--html-add-plaintext-to-region)
-  (define-key hm--html-region-formating-paragraph-map
-    "p" 'hm--html-add-preformated-to-region)
-  (define-key hm--html-region-formating-paragraph-map
+  (define-key hm--html-region-formatting-paragraph-map
+    "p" 'hm--html-add-preformatted-to-region)
+  (define-key hm--html-region-formatting-paragraph-map
     "b" 'hm--html-add-blockquote-to-region)
-  (define-key hm--html-region-formating-paragraph-map
+  (define-key hm--html-region-formatting-paragraph-map
     "\C-b" 'hm--html-add-basefont-to-region)
-  (define-key hm--html-region-formating-paragraph-map
+  (define-key hm--html-region-formatting-paragraph-map
     "f" 'hm--html-add-font-to-region)
-  (define-key hm--html-region-formating-paragraph-map
+  (define-key hm--html-region-formatting-paragraph-map
     "c" 'hm--html-add-center-to-region)
-  (define-key hm--html-region-formating-paragraph-map
+  (define-key hm--html-region-formatting-paragraph-map
     "\C-c" 'hm--html-add-comment-to-region)
-;  (define-key hm--html-region-formating-paragraph-map
+;  (define-key hm--html-region-formatting-paragraph-map
 ;    "l" 'hm--html-add-listing-to-region)
-;  (define-key hm--html-region-formating-paragraph-map
+;  (define-key hm--html-region-formatting-paragraph-map
 ;    "a" 'hm--html-add-abstract-to-region)
   )
 
-(defvar hm--html-noregion-formating-word-map nil
-  "Norgion sub keymap for inserting physical text formating elements.")
+(defvar hm--html-noregion-formatting-word-map nil
+  "Norgion sub keymap for inserting physical text formatting elements.")
 
-(if hm--html-noregion-formating-word-map
+(if hm--html-noregion-formatting-word-map
     ()
-  (setq hm--html-noregion-formating-word-map (make-sparse-keymap))
-  (define-key hm--html-noregion-formating-word-map
+  (setq hm--html-noregion-formatting-word-map (make-sparse-keymap))
+  (define-key hm--html-noregion-formatting-word-map
     "b" 'hm--html-add-bold)
-  (define-key hm--html-noregion-formating-word-map
+  (define-key hm--html-noregion-formatting-word-map
     "i" 'hm--html-add-italic)
-  (define-key hm--html-noregion-formating-word-map
+  (define-key hm--html-noregion-formatting-word-map
     "u" 'hm--html-add-underline)
-  (define-key hm--html-noregion-formating-word-map
+  (define-key hm--html-noregion-formatting-word-map
     "t" 'hm--html-add-fixed)
-  (define-key hm--html-noregion-formating-word-map
+  (define-key hm--html-noregion-formatting-word-map
     "s" 'hm--html-add-strikethru)
-  (define-key hm--html-noregion-formating-word-map
+  (define-key hm--html-noregion-formatting-word-map
     "\C-p" 'hm--html-add-superscript)
-  (define-key hm--html-noregion-formating-word-map
+  (define-key hm--html-noregion-formatting-word-map
     "\C-b" 'hm--html-add-subscript)
-  (define-key hm--html-noregion-formating-word-map
+  (define-key hm--html-noregion-formatting-word-map
     "e" 'hm--html-add-emphasized)
-  (define-key hm--html-noregion-formating-word-map
+  (define-key hm--html-noregion-formatting-word-map
     "\C-s" 'hm--html-add-strong)
-  (define-key hm--html-noregion-formating-word-map
+  (define-key hm--html-noregion-formatting-word-map
     "\M-s" 'hm--html-add-small)
-  (define-key hm--html-noregion-formating-word-map
+  (define-key hm--html-noregion-formatting-word-map
     "\M-b" 'hm--html-add-big)
   )
 
-(defvar hm--html-region-formating-word-map nil
-  "Region sub keymap for inserting word text formating elements.")
+(defvar hm--html-region-formatting-word-map nil
+  "Region sub keymap for inserting word text formatting elements.")
 
-(if hm--html-region-formating-word-map
+(if hm--html-region-formatting-word-map
     ()
-  (setq hm--html-region-formating-word-map (make-sparse-keymap))
-  (define-key hm--html-region-formating-word-map
+  (setq hm--html-region-formatting-word-map (make-sparse-keymap))
+  (define-key hm--html-region-formatting-word-map
     "b" 'hm--html-add-bold-to-region)
-  (define-key hm--html-region-formating-word-map
+  (define-key hm--html-region-formatting-word-map
     "i" 'hm--html-add-italic-to-region)
-  (define-key hm--html-region-formating-word-map
+  (define-key hm--html-region-formatting-word-map
     "u" 'hm--html-add-underline-to-region)
-  (define-key hm--html-region-formating-word-map
+  (define-key hm--html-region-formatting-word-map
     "t" 'hm--html-add-fixed-to-region)
-  (define-key hm--html-region-formating-word-map
+  (define-key hm--html-region-formatting-word-map
     "s" 'hm--html-add-strikethru-to-region)
-  (define-key hm--html-region-formating-word-map
+  (define-key hm--html-region-formatting-word-map
     "\C-p" 'hm--html-add-superscript-to-region)
-  (define-key hm--html-region-formating-word-map
+  (define-key hm--html-region-formatting-word-map
     "\C-b" 'hm--html-add-subscript-to-region)
-  (define-key hm--html-region-formating-word-map
+  (define-key hm--html-region-formatting-word-map
     "e" 'hm--html-add-emphasized-to-region)
-  (define-key hm--html-region-formating-word-map
+  (define-key hm--html-region-formatting-word-map
     "\C-s" 'hm--html-add-strong-to-region)
-  (define-key hm--html-region-formating-word-map
+  (define-key hm--html-region-formatting-word-map
     "\M-s" 'hm--html-add-small-to-region)
-  (define-key hm--html-region-formating-word-map
+  (define-key hm--html-region-formatting-word-map
     "\M-b" 'hm--html-add-big-to-region)
   )
 
@@ -436,9 +436,9 @@
   (define-key hm--html-region-sub-map-1 "\C-f" hm--html-region-frame-map)
   (define-key hm--html-region-sub-map-1 "\C-s" hm--html-region-structure-map)
   (define-key hm--html-region-sub-map-1 
-    "\C-p" hm--html-region-formating-paragraph-map)
+    "\C-p" hm--html-region-formatting-paragraph-map)
   (define-key hm--html-region-sub-map-1
-    "\C-w" hm--html-region-formating-word-map)
+    "\C-w" hm--html-region-formatting-word-map)
   )
 
 (defvar hm--html-noregion-sub-map-1 nil
@@ -458,9 +458,9 @@
   (define-key hm--html-noregion-sub-map-1 
     "\C-s" hm--html-noregion-structure-map)
   (define-key hm--html-noregion-sub-map-1
-    "\C-p" hm--html-noregion-formating-paragraph-map)
+    "\C-p" hm--html-noregion-formatting-paragraph-map)
   (define-key hm--html-noregion-sub-map-1
-    "\C-w" hm--html-noregion-formating-word-map)
+    "\C-w" hm--html-noregion-formatting-word-map)
   )
 
 (defvar hm--html-region-sub-map nil
--- lisp/hm--html-menus/hm--html-menu.el.orig	Tue May  6 14:12:44 1997
+++ lisp/hm--html-menus/hm--html-menu.el	Tue May  6 14:22:52 1997
@@ -132,9 +132,9 @@
 	  ["New line" hm--html-add-line-break t]
 	  ["Horizontal rule" hm--html-add-horizontal-rule t]
 	  )
-	 ("Formating Paragraphs"
+	 ("Formatting Paragraphs"
 ;	  ["Without links" hm--html-add-plaintext t]
-	  ["Preformated" hm--html-add-preformated t]
+	  ["Preformatted" hm--html-add-preformatted t]
           ["Blockquote" hm--html-add-blockquote t]
 	  "----"
 	  ["Basefont..." hm--html-add-basefont t]
@@ -284,9 +284,9 @@
 	  "----"
 	  ["Paragraph Container" hm--html-add-paragraph t]
 	  )
-	 ("Formating Paragraphs"
+	 ("Formatting Paragraphs"
 ;	  ["Without links" hm--html-add-plaintext t]
-	  ["Preformated" hm--html-add-preformated t]
+	  ["Preformatted" hm--html-add-preformatted t]
 	  )
 	 ("Formatting Words"
 	  ["Bold" hm--html-add-bold t]
@@ -357,7 +357,7 @@
 	  )
 	 ("Formatting Paragraphs"
 ;	  ["Without links" hm--html-add-plaintext-to-region t]
-	  ["Preformated" hm--html-add-preformated-to-region t]
+	  ["Preformatted" hm--html-add-preformatted-to-region t]
           ["Blockquote" hm--html-add-blockquote-to-region t]
 	  "----"
 	  ["Font..." hm--html-add-font-to-region t]
@@ -464,7 +464,7 @@
 	  )
 	 ("Formatting Paragraphs"
 ;	  ["Without links" hm--html-add-plaintext-to-region t]
-	  ["Preformated" hm--html-add-preformated-to-region t]
+	  ["Preformatted" hm--html-add-preformatted-to-region t]
 	  )
 	 ("Formatting Words"
 	  ["Bold" hm--html-add-bold-to-region t]
--- lisp/hm--html-menus/hm--html.el.orig	Thu Mar 27 18:28:42 1997
+++ lisp/hm--html-menus/hm--html.el	Tue May  6 14:17:39 1997
@@ -844,8 +844,8 @@
 			       "</DIV>"))
 
 
-(defun hm--html-add-preformated ()
-  "Adds the HTML tags for preformated text at the point in the current buffer."
+(defun hm--html-add-preformatted ()
+  "Adds the HTML tags for preformatted text at the point in the current buffer."
   (interactive)
   (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
 		     "<PRE>"
@@ -853,8 +853,8 @@
 		     "</PRE>"))
 
 
-(defun hm--html-add-preformated-to-region ()
-  "Adds the HTML tags for preformated text to the region."
+(defun hm--html-add-preformatted-to-region ()
+  "Adds the HTML tags for preformatted text to the region."
   (interactive)
   (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
 			       "<PRE>"

--Multipart_Tue_May__6_14:29:04_1997-1--

