# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 806890455 0
# Node ID c50826e443624afb1f3699630105fcc88c33aae5
# Parent  b3a8ee2da96a593072aa555b2e285802c2d41028
(lisp-imenu-generic-expression): Var defined.
(lisp-mode-variables): Set imenu-generic-expression.

diff -r b3a8ee2da96a -r c50826e44362 lisp/emacs-lisp/lisp-mode.el
--- 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.")