Mercurial > emacs

comparison lisp/generic-x.el @ 32282:3538e8ae0008

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed eval-when-compile statements from rul-generic-mode
author Peter Breton <pbreton@attbi.com>
date Sun, 08 Oct 2000 12:19:58 +0000
parents 5965a5c7aae4
children 8c295b635eb8
comparison
equal deleted inserted replaced
32281:b1d0243a7838 32282:3538e8ae0008
1417 '("[ \t]*\\(\\sw+:\\)" 1 font-lock-constant-face) 1417 '("[ \t]*\\(\\sw+:\\)" 1 font-lock-constant-face)
1418 '("\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?" 1418 '("\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?"
1419 (1 font-lock-keyword-face) 1419 (1 font-lock-keyword-face)
1420 (2 font-lock-constant-face nil t)) 1420 (2 font-lock-constant-face nil t))
1421 ;; system variables 1421 ;; system variables
1422 (eval-when-compile 1422 (generic-make-keywords-list
1423 (generic-make-keywords-list 1423 installshield-system-variables-list
1424 installshield-system-variables-list 1424 'font-lock-variable-name-face "[^_]" "[^_]")
1425 'font-lock-variable-name-face "[^_]" "[^_]"))
1426 ;; system functions 1425 ;; system functions
1427 (generic-make-keywords-list 1426 (generic-make-keywords-list
1428 installshield-system-functions-list 1427 installshield-system-functions-list
1429 'font-lock-function-name-face "[^_]" "[^_]") 1428 'font-lock-function-name-face "[^_]" "[^_]")
1430 ;; type keywords 1429 ;; type keywords
1431 (eval-when-compile 1430 (generic-make-keywords-list
1432 (generic-make-keywords-list 1431 installshield-types-list
1433 installshield-types-list 1432 'font-lock-type-face "[^_]" "[^_]")
1434 'font-lock-type-face "[^_]" "[^_]"))
1435 ;; function argument constants 1433 ;; function argument constants
1436 (eval-when-compile 1434 (generic-make-keywords-list
1437 (generic-make-keywords-list 1435 installshield-funarg-constants-list
1438 installshield-funarg-constants-list 1436 'font-lock-variable-name-face "[^_]" "[^_]") ; is this face the best choice?
1439 'font-lock-variable-name-face "[^_]" "[^_]")) ; is this face the best choice?
1440 ) 1437 )
1441 (list "\\.[rR][uU][lL]$") 1438 (list "\\.[rR][uU][lL]$")
1442 (list 1439 (list
1443 (function 1440 (function
1444 (lambda () 1441 (lambda ()