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: |
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)) |
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) |