Mercurial > emacs

comparison lisp/progmodes/pascal.el @ 43255:c440fcd3adb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pascal-imenu-generic-expression): Add menu-title and fix parentheses.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 12 Feb 2002 17:37:02 +0000
parents cd57818019f8
children 21c763762fb2
comparison
equal deleted inserted replaced
43254:eb6104aac6b0 43255:c440fcd3adb0
98 ; (define-key pascal-mode-map "\C-cu" 'pascal-upcase-keywords) 98 ; (define-key pascal-mode-map "\C-cu" 'pascal-upcase-keywords)
99 ; (define-key pascal-mode-map "\C-cc" 'pascal-capitalize-keywords) 99 ; (define-key pascal-mode-map "\C-cc" 'pascal-capitalize-keywords)
100 ) 100 )
101 101
102 (defvar pascal-imenu-generic-expression 102 (defvar pascal-imenu-generic-expression
103 '("^[ \t]*\\(function\\|procedure\\)[ \t\n]+\\([a-zA-Z0-9_.:]+\\)" . (2)) 103 '((nil "^[ \t]*\\(function\\|procedure\\)[ \t\n]+\\([a-zA-Z0-9_.:]+\\)" 2))
104 "Imenu expression for Pascal-mode. See `imenu-generic-expression'.") 104 "Imenu expression for Pascal-mode. See `imenu-generic-expression'.")
105 105
106 (defvar pascal-keywords 106 (defvar pascal-keywords
107 '("and" "array" "begin" "case" "const" "div" "do" "downto" "else" "end" 107 '("and" "array" "begin" "case" "const" "div" "do" "downto" "else" "end"
108 "file" "for" "function" "goto" "if" "in" "label" "mod" "nil" "not" "of" 108 "file" "for" "function" "goto" "if" "in" "label" "mod" "nil" "not" "of"