Mercurial > emacs
changeset 12701:c50826e44362
(lisp-imenu-generic-expression): Var defined.
(lisp-mode-variables): Set imenu-generic-expression.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 28 Jul 1995 00:14:15 +0000 |
| parents | b3a8ee2da96a |
| children | b0355a012c1d |
| files | lisp/emacs-lisp/lisp-mode.el |
| diffstat | 1 files changed, 15 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Thu Jul 27 22:52:02 1995 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Fri Jul 28 00:14:15 1995 +0000 @@ -78,6 +78,18 @@ (define-abbrev-table 'lisp-mode-abbrev-table ()) +(defvar lisp-imenu-generic-expression + '( + (nil + "^\\s-*(def\\(un\\|subst\\|macro\\|advice\\)\\s-+\\([-A-Za-z0-9+]+\\)" 2) + ("Variables" + "^\\s-*(def\\(var\\|const\\)\\s-+\\([-A-Za-z0-9+]+\\)" 2) + ("Types" + "^\\s-*(def\\(type\\|struct\\|class\\|ine-condition\\)\\s-+\\([-A-Za-z0-9+]+\\)" + 2)) + + "Imenu generic expression for Lisp mode. See `imenu-generic-expression'.") + (defun lisp-mode-variables (lisp-syntax) (cond (lisp-syntax (set-syntax-table lisp-mode-syntax-table))) @@ -105,7 +117,9 @@ (make-local-variable 'comment-column) (setq comment-column 40) (make-local-variable 'comment-indent-function) - (setq comment-indent-function 'lisp-comment-indent)) + (setq comment-indent-function 'lisp-comment-indent) + (make-local-variable 'imenu-generic-expression) + (setq imenu-generic-expression lisp-imenu-generic-expression)) (defvar shared-lisp-mode-map () "Keymap for commands shared by all sorts of Lisp modes.")