mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(ada-mode): Set imenu-generic-expression.
This commit is contained in:
Karl Heuer 1995-07-28 00:18:42 +00:00
parent 6c2cf8668a
commit 74480345ab
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/ada-mode.el
View file

@ -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"))))