From: Glenn Morris Date: Thu, 6 Jun 2013 21:35:45 +0000 (-0400) Subject: * lisp/font-lock.el (lisp-font-lock-keywords-2): Treat user-error like error X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~55 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0341459c1a304dc06cc92fcde32ca8d13d7256d;p=emacs.git * lisp/font-lock.el (lisp-font-lock-keywords-2): Treat user-error like error --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8630d478fc2..bb5f3f50858 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-06-06 Glenn Morris + * font-lock.el (lisp-font-lock-keywords-2): + Treat user-error like error. + * emacs-lisp/bytecomp.el (byte-compile-char-before) (byte-compile-backward-char, byte-compile-backward-word): Handle explicit nil arguments. (Bug#14565) diff --git a/lisp/font-lock.el b/lisp/font-lock.el index d18aea61236..8f4363b0bdf 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -2328,7 +2328,7 @@ in which C preprocessor directives are used. e.g. `asm-mode' and (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\\|\\(?:user-\\)?error\\|signal\\)\\_>" 1 font-lock-warning-face) ;; Words inside \\[] tend to be for `substitute-command-keys'. ("\\\\\\\\\\[\\(\\(?:\\sw\\|\\s_\\)+\\)\\]" (1 font-lock-constant-face prepend))