# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 806871002 0
# Node ID 83ef0f002ecfc64dadc9d0dfe043f089cf181af6
# Parent  c56f1c77ce73d9faed27beaf5eebdb779634c75a
(pascal-mode): Added imenu support.
(pascal-imenu-generic-expression): New variable.

diff -r c56f1c77ce73 -r 83ef0f002ecf lisp/progmodes/pascal.el
--- a/lisp/progmodes/pascal.el	Thu Jul 27 07:40:22 1995 +0000
+++ b/lisp/progmodes/pascal.el	Thu Jul 27 18:50:02 1995 +0000
@@ -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 @@
   (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))