From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 27 Jul 1995 18:50:02 +0000 (+0000)
Subject: (pascal-mode): Added imenu support.
X-Git-Tag: emacs-19.34~3171
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69b354ebc8bdc19b99b67c69c062e709b7e7e07f;p=emacs.git

(pascal-mode): Added imenu support.
(pascal-imenu-generic-expression): New variable.
---

diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index b7b2fa70c84..02d884f28f2 100644
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -93,6 +93,10 @@
 ;  (define-key pascal-mode-map "\C-cu"    'pascal-upcase-keywords)
 ;  (define-key pascal-mode-map "\C-cc"    'pascal-capitalize-keywords)
   )
+
+(defvar pascal-imenu-generic-expression
+  '("^[ \t]*\\(function\\|procedure\\)[ \t\n]+\\([a-zA-Z0-9_.:]+\\)" . (2))
+  "Imenu expression for Pascal-mode.  See `imenu-generic-expression'.")
   
 (defvar pascal-keywords
   '("and" "array" "begin" "case" "const" "div" "do" "downto" "else" "end" 
@@ -320,8 +324,12 @@ no args, if that value is non-nil."
   (setq comment-start-skip "(\\*+ *\\|{ *")
   (make-local-variable 'comment-end)
   (setq comment-end "}")
+  ;; Font lock support
   (make-local-variable 'font-lock-defaults)
   (setq font-lock-defaults '(pascal-font-lock-keywords nil t))
+  ;; Imenu support
+  (make-local-variable 'imenu-generic-expression)
+  (setq imenu-generic-expression pascal-imenu-generic-expression)
   (run-hooks 'pascal-mode-hook))