/[emacs]/emacs/lisp/font-lock.el
ViewVC logotype

Diff of /emacs/lisp/font-lock.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.211.2.4 by miles, Tue Jun 29 16:45:01 2004 UTC revision 1.211.2.5 by miles, Fri Jul 23 04:30:38 2004 UTC
# Line 693  see the variables `c-font-lock-extra-typ Line 693  see the variables `c-font-lock-extra-typ
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
# Line 801  subtle problems due to details of the im Line 801  subtle problems due to details of the im
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    
# Line 1945  This function could be MATCHER in a MATC Line 1945  This function could be MATCHER in a MATC
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"
# Line 1968  This function could be MATCHER in a MATC Line 1968  This function could be MATCHER in a MATC
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)

Legend:
Removed from v.1.211.2.4  
changed lines
  Added in v.1.211.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26