From 432b9655ae0f5426760cf99929384c689d7dfb82 Mon Sep 17 00:00:00 2001 From: Tom Gillespie Date: Sat, 3 Dec 2022 22:41:15 -0800 Subject: [PATCH] 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' -- 2.39.5