[Emacs-diffs] Changes to emacs/lisp/progmodes/tcl.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/tcl.el
diff -c emacs/lisp/progmodes/tcl.el:1.83 emacs/lisp/progmodes/tcl.el:1.84
*** emacs/lisp/progmodes/tcl.el:1.83    Thu May 19 19:06:19 2005
--- emacs/lisp/progmodes/tcl.el Mon Jul  4 03:27:17 2005
***************
*** 118,124 ****
  ;;
  
  (defgroup tcl nil
!   "Major mode for editing Tcl source in Emacs"
    :group 'languages)
  
  (defcustom tcl-indent-level 4
--- 118,124 ----
  ;;
  
  (defgroup tcl nil
!   "Major mode for editing Tcl source in Emacs."
    :group 'languages)
  
  (defcustom tcl-indent-level 4
***************
*** 1489,1495 ****
      (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))))
    (funcall (default-value 'comment-indent-function)))
  
  ;; The following was inspired by the Tcl editing mode written by
--- 1489,1495 ----
      (unless (or (bolp) (tcl-real-command-p))
        (insert ";")
        ;; Try and erase a non-significant char to keep charpos identical.
!       (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,1539 ****
  (defun tcl-quote (string)
    "Quote STRING according to Tcl rules."
    (mapconcat (lambda (char)
!              (if (memq char '(?[ ?] ?{ ?} ?\\ ?\" ?$ ?  ?\;))
                   (concat "\\" (char-to-string char))
                 (char-to-string char)))
             string ""))
--- 1533,1539 ----
  (defun tcl-quote (string)
    "Quote STRING according to Tcl rules."
    (mapconcat (lambda (char)
!              (if (memq char '(?[ ?] ?{ ?} ?\\ ?\" ?$ ?\s ?\;))
                   (concat "\\" (char-to-string char))
                 (char-to-string char)))
             string ""))