Mercurial > emacs
changeset 22857:33b46ddf75b7
(lisp-font-lock-keywords-1): Fontify `defconstant' and `defparameter'.
(lisp-font-lock-keywords-2): Fontify `lambda', `in-package' and `locally'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 31 Jul 1998 03:17:08 +0000 |
| parents | 131d52d2656d |
| children | 77090a500417 |
| files | lisp/font-lock.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/font-lock.el Fri Jul 31 03:13:19 1998 +0000 +++ b/lisp/font-lock.el Fri Jul 31 03:17:08 1998 +0000 @@ -1912,7 +1912,7 @@ "skeleton\\|widget\\|setf-expander\\|method-combination\\|" "\\(symbol\\|compiler\\|modify\\)-macro\\)\\)\\|" ;; Variable declarations. - "\\(const\\|custom\\|face\\|var\\)\\|" + "\\(const\\(ant\\)?\\|custom\\|face\\|var\\|parameter\\)\\|" ;; Structure declarations. "\\(class\\|group\\|package\\|struct\\|type\\)" "\\)\\)\\>" @@ -1920,9 +1920,9 @@ "[ \t'\(]*" "\\(\\sw+\\)?") '(1 font-lock-keyword-face) - '(8 (cond ((match-beginning 3) font-lock-function-name-face) - ((match-beginning 4) font-lock-function-name-face) + '(9 (cond ((match-beginning 3) font-lock-function-name-face) ((match-beginning 6) font-lock-variable-name-face) + ((match-beginning 8) font-lock-variable-name-face) (t font-lock-type-face)) nil t)) ;; @@ -1946,7 +1946,7 @@ "save-match-data" "save-current-buffer" "unwind-protect" "condition-case" "track-mouse" "eval-after-load" "eval-and-compile" "eval-when-compile" - "eval-when" + "eval-when" "lambda" "with-current-buffer" "with-electric-help" "with-output-to-string" "with-output-to-temp-buffer" "with-temp-buffer" "with-temp-file" @@ -1959,9 +1959,9 @@ "(" (regexp-opt '("when" "unless" "case" "ecase" "typecase" "etypecase" "ccase" "ctypecase" "handler-case" "handler-bind" - "restart-bind" "restart-case" + "restart-bind" "restart-case" "in-package" "assert" "abort" "error" "cerror" "break" "ignore-errors" - "loop" "do" "do*" "dotimes" "dolist" "the" + "loop" "do" "do*" "dotimes" "dolist" "the" "locally" "proclaim" "declaim" "declare" "symbol-macrolet" "lexical-let" "lexical-let*" "flet" "labels" "compiler-let" "destructuring-bind" "macrolet" "tagbody" "block"