From 69b354ebc8bdc19b99b67c69c062e709b7e7e07f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 27 Jul 1995 18:50:02 +0000 Subject: [PATCH] (pascal-mode): Added imenu support. (pascal-imenu-generic-expression): New variable. --- lisp/progmodes/pascal.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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)) -- 2.39.2