diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-03-25 09:47:32 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-03-25 09:47:32 -0400 |
| commit | b234d92c0695c4f500a4a14496008f377de76f3e (patch) | |
| tree | 2d6ed99f50f596104d110a7301168d9fc6fc541c /lisp/font-lock.el | |
| parent | ddfa3cb434de08256f7934a4255133fac2995ee3 (diff) | |
| download | emacs-b234d92c0695c4f500a4a14496008f377de76f3e.tar.gz emacs-b234d92c0695c4f500a4a14496008f377de76f3e.tar.bz2 emacs-b234d92c0695c4f500a4a14496008f377de76f3e.zip | |
* lisp/font-lock.el (lisp-font-lock-keywords-2): Don't highlight the "error"
part of "(error-foo)".
Diffstat (limited to 'lisp/font-lock.el')
| -rw-r--r-- | lisp/font-lock.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 9436012ee59..f9b75243494 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -2323,12 +2323,12 @@ in which C preprocessor directives are used. e.g. `asm-mode' and "\\_>") . 1) ;; Exit/Feature symbols as constants. - (,(concat "(\\(catch\\|throw\\|featurep\\|provide\\|require\\)\\>" + (,(concat "(\\(catch\\|throw\\|featurep\\|provide\\|require\\)\\_>" "[ \t']*\\(\\(?:\\sw\\|\\s_\\)+\\)?") (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) ;; Erroneous structures. - ("(\\(abort\\|assert\\|warn\\|check-type\\|cerror\\|error\\|signal\\)\\>" 1 font-lock-warning-face) + ("(\\(abort\\|assert\\|warn\\|check-type\\|cerror\\|error\\|signal\\)\\_>" 1 font-lock-warning-face) ;; Words inside \\[] tend to be for `substitute-command-keys'. ("\\\\\\\\\\[\\(\\(?:\\sw\\|\\s_\\)+\\)\\]" (1 font-lock-constant-face prepend)) |