693 |
;; If the keywords were compiled before, compile them again. |
;; If the keywords were compiled before, compile them again. |
694 |
(if was-compiled |
(if was-compiled |
695 |
(set (make-local-variable 'font-lock-keywords) |
(set (make-local-variable 'font-lock-keywords) |
696 |
(font-lock-compile-keywords keywords t))))))) |
(font-lock-compile-keywords font-lock-keywords t))))))) |
697 |
|
|
698 |
(defun font-lock-update-removed-keyword-alist (mode keywords append) |
(defun font-lock-update-removed-keyword-alist (mode keywords append) |
699 |
;; Update `font-lock-removed-keywords-alist' when adding new |
;; Update `font-lock-removed-keywords-alist' when adding new |
801 |
;; If the keywords were compiled before, compile them again. |
;; If the keywords were compiled before, compile them again. |
802 |
(if was-compiled |
(if was-compiled |
803 |
(set (make-local-variable 'font-lock-keywords) |
(set (make-local-variable 'font-lock-keywords) |
804 |
(font-lock-compile-keywords keywords t))))))) |
(font-lock-compile-keywords font-lock-keywords t))))))) |
805 |
|
|
806 |
;;; Font Lock Support mode. |
;;; Font Lock Support mode. |
807 |
|
|
1945 |
'("when" "unless" "case" "ecase" "typecase" "etypecase" |
'("when" "unless" "case" "ecase" "typecase" "etypecase" |
1946 |
"ccase" "ctypecase" "handler-case" "handler-bind" |
"ccase" "ctypecase" "handler-case" "handler-bind" |
1947 |
"restart-bind" "restart-case" "in-package" |
"restart-bind" "restart-case" "in-package" |
1948 |
"cerror" "break" "ignore-errors" |
"break" "ignore-errors" |
1949 |
"loop" "do" "do*" "dotimes" "dolist" "the" "locally" |
"loop" "do" "do*" "dotimes" "dolist" "the" "locally" |
1950 |
"proclaim" "declaim" "declare" "symbol-macrolet" |
"proclaim" "declaim" "declare" "symbol-macrolet" |
1951 |
"lexical-let" "lexical-let*" "flet" "labels" "compiler-let" |
"lexical-let" "lexical-let*" "flet" "labels" "compiler-let" |
1952 |
"destructuring-bind" "macrolet" "tagbody" "block" |
"destructuring-bind" "macrolet" "tagbody" "block" "go" |
1953 |
"multiple-value-bind" |
"multiple-value-bind" "multiple-value-prog1" |
1954 |
"return" "return-from" |
"return" "return-from" |
1955 |
"with-accessors" "with-compilation-unit" |
"with-accessors" "with-compilation-unit" |
1956 |
"with-condition-restarts" "with-hash-table-iterator" |
"with-condition-restarts" "with-hash-table-iterator" |
1968 |
'(2 font-lock-constant-face nil t)) |
'(2 font-lock-constant-face nil t)) |
1969 |
;; |
;; |
1970 |
;; Erroneous structures. |
;; Erroneous structures. |
1971 |
'("(\\(abort\\|assert\\|error\\|signal\\)\\>" 1 font-lock-warning-face) |
'("(\\(abort\\|assert\\|warn\\|check-type\\|cerror\\|error\\|signal\\)\\>" 1 font-lock-warning-face) |
1972 |
;; |
;; |
1973 |
;; Words inside \\[] tend to be for `substitute-command-keys'. |
;; Words inside \\[] tend to be for `substitute-command-keys'. |
1974 |
'("\\\\\\\\\\[\\(\\sw+\\)]" 1 font-lock-constant-face prepend) |
'("\\\\\\\\\\[\\(\\sw+\\)]" 1 font-lock-constant-face prepend) |