(sgml): Finish `defgroup' description with period.

(html-imenu-index, sgml-attributes, sgml-auto-attributes): "?\ " -> "?\s".

1 files changed, 6 insertions, 6 deletions

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 8e83a8fe90f..a4b5787981d 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -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 @@ If QUIET, do not print a message when there are no attributes for TAG."
 	    (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 @@ If QUIET, do not print a message when there are no attributes for TAG."
 		(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 @@ With prefix argument, only self insert."
 	    (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 @@ The third `match-string' will be the used in the menu.")
 	(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))))