/[emacs]/emacs/lisp/progmodes/tcl.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/tcl.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.66 by rms, Wed Feb 20 22:33:35 2002 UTC revision 1.67 by rms, Fri Mar 29 12:47:57 2002 UTC
# Line 76  Line 76 
76  ;;   middle of a defun, or between defuns.  should notice if point is  ;;   middle of a defun, or between defuns.  should notice if point is
77  ;;   on first line of defun (or maybe even in comments before defun).  ;;   on first line of defun (or maybe even in comments before defun).
78  ;; * Allow continuation lines to be indented under the first argument  ;; * Allow continuation lines to be indented under the first argument
79  ;;   of the preceeding line, like this:  ;;   of the preceding line, like this:
80  ;;      [list something \  ;;      [list something \
81  ;;            something-else]  ;;            something-else]
82  ;; * There is a request that indentation work like this:  ;; * There is a request that indentation work like this:
# Line 988  Returns nil if line starts inside a stri Line 988  Returns nil if line starts inside a stri
988  ;;  ;;
989    
990  (defun tcl-imenu-create-index-function ()  (defun tcl-imenu-create-index-function ()
991    "Generate alist of indices for imenu."    "Generate alist of indices for `imenu'."
992    (let ((re (concat tcl-proc-regexp "\\([^ \t\n{]+\\)"))    (let ((re (concat tcl-proc-regexp "\\([^ \t\n{]+\\)"))
993          alist prev-pos)          alist prev-pos)
994      (goto-char (point-min))      (goto-char (point-min))
# Line 1189  first word following a semicolon, openin Line 1189  first word following a semicolon, openin
1189    "Return t if point is just after the `#' beginning a real comment.    "Return t if point is just after the `#' beginning a real comment.
1190  Does not check to see if previous char is actually `#'.  Does not check to see if previous char is actually `#'.
1191  A real comment is either at the beginning of the buffer,  A real comment is either at the beginning of the buffer,
1192  preceeded only by whitespace on the line, or has a preceeding  preceded only by whitespace on the line, or has a preceding
1193  semicolon, opening brace, or opening bracket on the same line."  semicolon, opening brace, or opening bracket on the same line."
1194    (save-excursion    (save-excursion
1195      (backward-char)      (backward-char)

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26