From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 4 Jul 2005 03:27:17 +0000 (+0000)
Subject: (tcl): Finish `defgroup' description with period.
X-Git-Tag: emacs-pretest-22.0.90~8388
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5089af2745cea1c29c06165d8ab59e94907d3daa;p=emacs.git

(tcl): Finish `defgroup' description with period.
(tcl-comment-indent, tcl-quote): "?\ " -> "?\s".
---

diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index a3447befa20..2669369645f 100644
--- a/lisp/progmodes/tcl.el
+++ b/lisp/progmodes/tcl.el
@@ -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 @@ styles."
     (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 @@ The first line is assumed to look like \"#!.../program ...\"."
 (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 ""))