# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1120448244 0
# Node ID 7e00d33823d37052a05fbc00ffc3556f7a000a0b
# Parent  dc2198941327c56c4c92bed28778e078efe0014f
(sgml): Finish `defgroup' description with period.
(html-imenu-index, sgml-attributes, sgml-auto-attributes): "?\ " -> "?\s".

diff -r dc2198941327 -r 7e00d33823d3 lisp/textmodes/sgml-mode.el
--- a/lisp/textmodes/sgml-mode.el	Mon Jul 04 03:34:51 2005 +0000
+++ b/lisp/textmodes/sgml-mode.el	Mon Jul 04 03:37:24 2005 +0000
@@ -40,7 +40,7 @@
   (require 'cl))
 
 (defgroup sgml nil
-  "SGML editing mode"
+  "SGML editing mode."
   :group 'languages)
 
 (defcustom sgml-basic-offset 2
@@ -670,12 +670,12 @@
 	    (message "No attributes configured."))
 	(if (stringp (car alist))
 	    (progn
-	      (insert (if (eq (preceding-char) ? ) "" ? )
+	      (insert (if (eq (preceding-char) ?\s) "" ?\s)
 		      (funcall skeleton-transformation (car alist)))
 	      (sgml-value alist))
 	  (setq i (length alist))
 	  (while (> i 0)
-	    (insert ? )
+	    (insert ?\s)
 	    (insert (funcall skeleton-transformation
 			     (setq attribute
 				   (skeleton-read '(completing-read
@@ -685,7 +685,7 @@
 		(setq i 0)
 	      (sgml-value (assoc (downcase attribute) alist))
 	      (setq i (1- i))))
-	  (if (eq (preceding-char) ? )
+	  (if (eq (preceding-char) ?\s)
 	      (delete-backward-char 1)))
 	car)))
 
@@ -701,7 +701,7 @@
 	    (eq (aref tag 0) ?/))
 	(self-insert-command (prefix-numeric-value arg))
       (sgml-attributes tag)
-      (setq last-command-char ? )
+      (setq last-command-char ?\s)
       (or (> (point) point)
 	  (self-insert-command 1)))))
 
@@ -1875,7 +1875,7 @@
 	(setq toc-index
 	      (cons (cons (concat (make-string
 				   (* 2 (1- (string-to-number (match-string 1))))
-				   ?\ )
+				   ?\s)
 				  (match-string 3))
 			  (line-beginning-position))
 		    toc-index))))