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

[Richard M. Stallman]

Index: emacs/lisp/progmodes/tcl.el
diff -c emacs/lisp/progmodes/tcl.el:1.66 emacs/lisp/progmodes/tcl.el:1.67
*** emacs/lisp/progmodes/tcl.el:1.66    Wed Feb 20 17:33:35 2002
--- emacs/lisp/progmodes/tcl.el Fri Mar 29 07:47:57 2002
***************
*** 6,12 ****
  ;; Author: Tom Tromey <address@hidden>
  ;;    Chris Lindblad <address@hidden>
  ;; Keywords: languages tcl modes
! ;; Version: $Revision: 1.66 $
  
  ;; This file is part of GNU Emacs.
  
--- 6,12 ----
  ;; Author: Tom Tromey <address@hidden>
  ;;    Chris Lindblad <address@hidden>
  ;; Keywords: languages tcl modes
! ;; Version: $Revision: 1.67 $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 76,82 ****
  ;;   middle of a defun, or between defuns.  should notice if point is
  ;;   on first line of defun (or maybe even in comments before defun).
  ;; * Allow continuation lines to be indented under the first argument
! ;;   of the preceeding line, like this:
  ;;      [list something \
  ;;            something-else]
  ;; * There is a request that indentation work like this:
--- 76,82 ----
  ;;   middle of a defun, or between defuns.  should notice if point is
  ;;   on first line of defun (or maybe even in comments before defun).
  ;; * Allow continuation lines to be indented under the first argument
! ;;   of the preceding line, like this:
  ;;      [list something \
  ;;            something-else]
  ;; * There is a request that indentation work like this:
***************
*** 988,994 ****
  ;;
  
  (defun tcl-imenu-create-index-function ()
!   "Generate alist of indices for imenu."
    (let ((re (concat tcl-proc-regexp "\\([^ \t\n{]+\\)"))
        alist prev-pos)
      (goto-char (point-min))
--- 988,994 ----
  ;;
  
  (defun tcl-imenu-create-index-function ()
!   "Generate alist of indices for `imenu'."
    (let ((re (concat tcl-proc-regexp "\\([^ \t\n{]+\\)"))
        alist prev-pos)
      (goto-char (point-min))
***************
*** 1189,1195 ****
    "Return t if point is just after the `#' beginning a real comment.
  Does not check to see if previous char is actually `#'.
  A real comment is either at the beginning of the buffer,
! preceeded only by whitespace on the line, or has a preceeding
  semicolon, opening brace, or opening bracket on the same line."
    (save-excursion
      (backward-char)
--- 1189,1195 ----
    "Return t if point is just after the `#' beginning a real comment.
  Does not check to see if previous char is actually `#'.
  A real comment is either at the beginning of the buffer,
! preceded only by whitespace on the line, or has a preceding
  semicolon, opening brace, or opening bracket on the same line."
    (save-excursion
      (backward-char)