# HG changeset patch # User Peter Breton # Date 971007598 0 # Node ID 3538e8ae0008f27f242ca3a223a433ccacb5724b # Parent b1d0243a783812f5c71db7fbb04533e4f807d073 Removed eval-when-compile statements from rul-generic-mode diff -r b1d0243a7838 -r 3538e8ae0008 lisp/generic-x.el --- a/lisp/generic-x.el Sun Oct 08 11:30:37 2000 +0000 +++ b/lisp/generic-x.el Sun Oct 08 12:19:58 2000 +0000 @@ -1419,24 +1419,21 @@ (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) ;; system variables - (eval-when-compile - (generic-make-keywords-list - installshield-system-variables-list - 'font-lock-variable-name-face "[^_]" "[^_]")) + (generic-make-keywords-list + installshield-system-variables-list + 'font-lock-variable-name-face "[^_]" "[^_]") ;; system functions (generic-make-keywords-list installshield-system-functions-list 'font-lock-function-name-face "[^_]" "[^_]") ;; type keywords - (eval-when-compile - (generic-make-keywords-list - installshield-types-list - 'font-lock-type-face "[^_]" "[^_]")) + (generic-make-keywords-list + installshield-types-list + 'font-lock-type-face "[^_]" "[^_]") ;; function argument constants - (eval-when-compile - (generic-make-keywords-list - installshield-funarg-constants-list - 'font-lock-variable-name-face "[^_]" "[^_]")) ; is this face the best choice? + (generic-make-keywords-list + installshield-funarg-constants-list + 'font-lock-variable-name-face "[^_]" "[^_]") ; is this face the best choice? ) (list "\\.[rR][uU][lL]$") (list