# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1120447637 0
# Node ID fd24f2ae0e10fbddf85f7a2b58c9df66b9aea9d3
# Parent  68f51d595f7f9b71486d4ea7d6891367b33eff63
(tcl): Finish `defgroup' description with period.
(tcl-comment-indent, tcl-quote): "?\ " -> "?\s".

diff -r 68f51d595f7f -r fd24f2ae0e10 lisp/progmodes/tcl.el
--- a/lisp/progmodes/tcl.el	Mon Jul 04 03:25:26 2005 +0000
+++ b/lisp/progmodes/tcl.el	Mon Jul 04 03:27:17 2005 +0000
@@ -118,7 +118,7 @@
 ;;
 
 (defgroup tcl nil
-  "Major mode for editing Tcl source in Emacs"
+  "Major mode for editing Tcl source in Emacs."
   :group 'languages)
 
 (defcustom tcl-indent-level 4
@@ -1489,7 +1489,7 @@
     (unless (or (bolp) (tcl-real-command-p))
       (insert ";")
       ;; Try and erase a non-significant char to keep charpos identical.
-      (if (memq (char-after) '(?\t ?\ )) (delete-char 1))))
+      (if (memq (char-after) '(?\t ?\s)) (delete-char 1))))
   (funcall (default-value 'comment-indent-function)))
 
 ;; The following was inspired by the Tcl editing mode written by
@@ -1533,7 +1533,7 @@
 (defun tcl-quote (string)
   "Quote STRING according to Tcl rules."
   (mapconcat (lambda (char)
-	       (if (memq char '(?[ ?] ?{ ?} ?\\ ?\" ?$ ?  ?\;))
+	       (if (memq char '(?[ ?] ?{ ?} ?\\ ?\" ?$ ?\s ?\;))
 		   (concat "\\" (char-to-string char))
 		 (char-to-string char)))
 	     string ""))