Mercurial > emacs
comparison lisp/progmodes/pascal.el @ 12689:83ef0f002ecf
(pascal-mode): Added imenu support.
(pascal-imenu-generic-expression): New variable.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 27 Jul 1995 18:50:02 +0000 |
| parents | e6bdaaa6ce1b |
| children | 83fd8f17cfe4 |
comparison
equal
deleted
inserted
replaced
| 12688:c56f1c77ce73 | 12689:83ef0f002ecf |
|---|---|
| 91 ;;; often, so no need for a key binding. | 91 ;;; often, so no need for a key binding. |
| 92 ; (define-key pascal-mode-map "\C-cd" 'pascal-downcase-keywords) | 92 ; (define-key pascal-mode-map "\C-cd" 'pascal-downcase-keywords) |
| 93 ; (define-key pascal-mode-map "\C-cu" 'pascal-upcase-keywords) | 93 ; (define-key pascal-mode-map "\C-cu" 'pascal-upcase-keywords) |
| 94 ; (define-key pascal-mode-map "\C-cc" 'pascal-capitalize-keywords) | 94 ; (define-key pascal-mode-map "\C-cc" 'pascal-capitalize-keywords) |
| 95 ) | 95 ) |
| 96 | |
| 97 (defvar pascal-imenu-generic-expression | |
| 98 '("^[ \t]*\\(function\\|procedure\\)[ \t\n]+\\([a-zA-Z0-9_.:]+\\)" . (2)) | |
| 99 "Imenu expression for Pascal-mode. See `imenu-generic-expression'.") | |
| 96 | 100 |
| 97 (defvar pascal-keywords | 101 (defvar pascal-keywords |
| 98 '("and" "array" "begin" "case" "const" "div" "do" "downto" "else" "end" | 102 '("and" "array" "begin" "case" "const" "div" "do" "downto" "else" "end" |
| 99 "file" "for" "function" "goto" "if" "in" "label" "mod" "nil" "not" "of" | 103 "file" "for" "function" "goto" "if" "in" "label" "mod" "nil" "not" "of" |
| 100 "or" "packed" "procedure" "program" "record" "repeat" "set" "then" "to" | 104 "or" "packed" "procedure" "program" "record" "repeat" "set" "then" "to" |
| 318 (setq case-fold-search t) | 322 (setq case-fold-search t) |
| 319 (make-local-variable 'comment-start-skip) | 323 (make-local-variable 'comment-start-skip) |
| 320 (setq comment-start-skip "(\\*+ *\\|{ *") | 324 (setq comment-start-skip "(\\*+ *\\|{ *") |
| 321 (make-local-variable 'comment-end) | 325 (make-local-variable 'comment-end) |
| 322 (setq comment-end "}") | 326 (setq comment-end "}") |
| 327 ;; Font lock support | |
| 323 (make-local-variable 'font-lock-defaults) | 328 (make-local-variable 'font-lock-defaults) |
| 324 (setq font-lock-defaults '(pascal-font-lock-keywords nil t)) | 329 (setq font-lock-defaults '(pascal-font-lock-keywords nil t)) |
| 330 ;; Imenu support | |
| 331 (make-local-variable 'imenu-generic-expression) | |
| 332 (setq imenu-generic-expression pascal-imenu-generic-expression) | |
| 325 (run-hooks 'pascal-mode-hook)) | 333 (run-hooks 'pascal-mode-hook)) |
| 326 | 334 |
| 327 | 335 |
| 328 | 336 |
| 329 ;;; | 337 ;;; |