From 6c2cf8668a6de294bf048139254d5ab10e36fdd7 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 28 Jul 1995 00:14:15 +0000 Subject: [PATCH] (lisp-imenu-generic-expression): Var defined. (lisp-mode-variables): Set imenu-generic-expression. --- lisp/emacs-lisp/lisp-mode.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index f493a615d30..ab08912cad7 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -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.") -- 2.39.2