Mercurial > emacs
comparison lisp/progmodes/ada-mode.el @ 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 | f8bbc7a3b87a |
children | 1b2a4a45f089 |
comparison
equal
deleted
inserted
replaced
12701:c50826e44362 | 12702:b0355a012c1d |
---|---|
279 "\\<\\(procedure\\|protected\\|package\\|function\\|\ | 279 "\\<\\(procedure\\|protected\\|package\\|function\\|\ |
280 task\\|accept\\|entry\\)\\>" | 280 task\\|accept\\|entry\\)\\>" |
281 "Regexp for the start of a subprogram.") | 281 "Regexp for the start of a subprogram.") |
282 | 282 |
283 | 283 |
284 ;; Written by Christian Egli <Christian.Egli@hcsd.hac.com> | |
285 ;; | |
286 (defvar ada-imenu-generic-expression | |
287 '((nil "^\\s-*\\(procedure\\|function\\)\\s-+\\([A-Za-z0-9_]+\\)" 2) | |
288 ("Type Defs" "^\\s-*\\(sub\\)?type\\s-+\\([A-Za-z0-9_]+\\)" 2)) | |
289 | |
290 "Imenu generic expression for Ada mode. See `imenu-generic-expression'.") | |
291 | |
284 ;;;------------- | 292 ;;;------------- |
285 ;;; functions | 293 ;;; functions |
286 ;;;------------- | 294 ;;;------------- |
287 | 295 |
288 (defun ada-xemacs () | 296 (defun ada-xemacs () |
425 (make-local-variable 'case-fold-search) | 433 (make-local-variable 'case-fold-search) |
426 (setq case-fold-search t) | 434 (setq case-fold-search t) |
427 | 435 |
428 (make-local-variable 'fill-paragraph-function) | 436 (make-local-variable 'fill-paragraph-function) |
429 (setq fill-paragraph-function 'ada-fill-comment-paragraph) | 437 (setq fill-paragraph-function 'ada-fill-comment-paragraph) |
438 | |
439 (make-local-variable 'imenu-generic-expression) | |
440 (setq imenu-generic-expression ada-imenu-generic-expression) | |
430 | 441 |
431 (make-local-variable 'font-lock-defaults) | 442 (make-local-variable 'font-lock-defaults) |
432 (setq font-lock-defaults '(ada-font-lock-keywords nil t ((?\_ . "w")))) | 443 (setq font-lock-defaults '(ada-font-lock-keywords nil t ((?\_ . "w")))) |
433 | 444 |
434 (setq major-mode 'ada-mode) | 445 (setq major-mode 'ada-mode) |