emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-29 432b9655ae0: Restore font-lock-type-face for lisp mode &symbols


From: Eli Zaretskii
Subject: emacs-29 432b9655ae0: Restore font-lock-type-face for lisp mode &symbols
Date: Sun, 4 Dec 2022 12:52:19 -0500 (EST)

branch: emacs-29
commit 432b9655ae0f5426760cf99929384c689d7dfb82
Author: Tom Gillespie <tgbugs@gmail.com>
Commit: Eli Zaretskii <eliz@gnu.org>

    Restore font-lock-type-face for lisp mode &symbols
    
    * lisp/emacs-lisp/lisp-mode.el (lisp-cl-font-lock-keywords-2)
    (lisp-el-font-lock-keywords-2): Restore use of type face instead of
    builtin face for &symbol keywords.  This fixes what appears to be
    a copy paste error that changed the face for common lisp and emacs
    lisp &symbol style keywords that was introduced in commit
    a498e5f83 by restoring the type face to font-lock-type-face as
    consistent with the comments.
---
 lisp/emacs-lisp/lisp-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 7e39a77aed5..bf879158188 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -514,7 +514,7 @@ This will generate compile-time constants from BINDINGS."
           (0 font-lock-builtin-face))
          ;; ELisp and CLisp `&' keywords as types.
          (,(lambda (bound) (lisp-mode--search-key "&" bound))
-          (0 font-lock-builtin-face))
+          (0 font-lock-type-face))
          ;; ELisp regexp grouping constructs
          (,(lambda (bound)
              (catch 'found
@@ -567,7 +567,7 @@ This will generate compile-time constants from BINDINGS."
           (0 font-lock-builtin-face))
          ;; ELisp and CLisp `&' keywords as types.
          (,(lambda (bound) (lisp-mode--search-key "&" bound))
-          (0 font-lock-builtin-face))
+          (0 font-lock-type-face))
          ;; ELisp regexp grouping constructs
          ;; This is too general -- rms.
          ;; A user complained that he has functions whose names start with `do'



reply via email to

[Prev in Thread] Current Thread [Next in Thread]