From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 28 Jul 1995 00:18:42 +0000 (+0000)
Subject: (ada-imenu-generic-expression): Var defined.
X-Git-Tag: emacs-19.34~3158
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74480345ab76d05cf117ec0a29c3ae29c1bc4f23;p=emacs.git

(ada-imenu-generic-expression): Var defined.
(ada-mode): Set imenu-generic-expression.
---

diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 2014f8e8b02..d280b31ed46 100644
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -281,6 +281,14 @@ task\\|accept\\|entry\\)\\>"
   "Regexp for the start of a subprogram.")
 
 
+;; Written by Christian Egli <Christian.Egli@hcsd.hac.com>
+;;
+(defvar ada-imenu-generic-expression
+      '((nil "^\\s-*\\(procedure\\|function\\)\\s-+\\([A-Za-z0-9_]+\\)" 2)
+	("Type Defs" "^\\s-*\\(sub\\)?type\\s-+\\([A-Za-z0-9_]+\\)" 2))
+
+  "Imenu generic expression for Ada mode.  See `imenu-generic-expression'.")
+
 ;;;-------------
 ;;;  functions
 ;;;-------------
@@ -428,6 +436,9 @@ If you use ada-xref.el:
   (make-local-variable 'fill-paragraph-function)
   (setq fill-paragraph-function 'ada-fill-comment-paragraph)
 
+  (make-local-variable 'imenu-generic-expression)
+  (setq imenu-generic-expression ada-imenu-generic-expression)
+
   (make-local-variable 'font-lock-defaults)
   (setq font-lock-defaults '(ada-font-lock-keywords nil t ((?\_ . "w"))))