Mercurial > emacs
changeset 12702:b0355a012c1d
(ada-imenu-generic-expression): Var defined.
(ada-mode): Set imenu-generic-expression.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 28 Jul 1995 00:18:42 +0000 |
| parents | c50826e44362 |
| children | d550939c05d1 |
| files | lisp/progmodes/ada-mode.el |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/ada-mode.el Fri Jul 28 00:14:15 1995 +0000 +++ b/lisp/progmodes/ada-mode.el Fri Jul 28 00:18:42 1995 +0000 @@ -281,6 +281,14 @@ "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 @@ (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"))))