[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8abe4ca83a1: Add 'define-error' to font lock keywords for emacs-l
From: |
Eli Zaretskii |
Subject: |
master 8abe4ca83a1: Add 'define-error' to font lock keywords for emacs-lisp-mode |
Date: |
Wed, 26 Jul 2023 10:22:12 -0400 (EDT) |
branch: master
commit 8abe4ca83a1a271d2867b9efb9750ba8e9d37c37
Author: Neal Sidhwaney <nealsid@users.noreply.github.com>
Commit: Eli Zaretskii <eliz@gnu.org>
Add 'define-error' to font lock keywords for emacs-lisp-mode
* lisp/emacs-lisp/lisp-mode.el (lisp-fdefs): Add 'define-error'.
(Bug#64824)
* test/lisp/emacs-lisp/lisp-mode-tests.el
(test-font-lock-keywords): New test.
Copyright-paperwork-exempt: yes
---
lisp/emacs-lisp/lisp-mode.el | 2 +-
test/lisp/emacs-lisp/lisp-mode-tests.el | 23 +++++++++++++++++++++++
2 files changed, 24 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 4eee009f689..3bf9a2f10db 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -361,7 +361,7 @@ This will generate compile-time constants from BINDINGS."
"define-globalized-minor-mode" "define-skeleton"
"define-widget" "ert-deftest"))
(el-vdefs '("defconst" "defcustom" "defvaralias" "defvar-local"
- "defface"))
+ "defface" "define-error"))
(el-tdefs '("defgroup" "deftheme"))
(el-errs '("user-error"))
;; Common-Lisp constructs supported by EIEIO. FIXME: namespace.
diff --git a/test/lisp/emacs-lisp/lisp-mode-tests.el
b/test/lisp/emacs-lisp/lisp-mode-tests.el
index 3e906497020..825e6b6ab80 100644
--- a/test/lisp/emacs-lisp/lisp-mode-tests.el
+++ b/test/lisp/emacs-lisp/lisp-mode-tests.el
@@ -355,5 +355,28 @@ Expected initialization file: `%s'\"
;; (should (equal (lisp-current-defun-name) "defblarg")))
)
+(ert-deftest test-font-lock-keywords ()
+ "Keywords should be fontified in `font-lock-keyword-face`."
+ (with-temp-buffer
+ (emacs-lisp-mode)
+ (mapc (lambda (el-keyword)
+ (erase-buffer)
+ (insert (format "(%s some-symbol () \"hello\"" el-keyword))
+ (font-lock-ensure)
+ ;; Verify face property throughout the keyword
+ (let* ((begin (1+ (point-min)))
+ (end (1- (+ begin (length el-keyword)))))
+ (mapc (lambda (pos)
+ (should (equal (get-text-property pos 'face)
+ 'font-lock-keyword-face)))
+ (number-sequence begin end))))
+ '("defsubst" "cl-defsubst" "define-inline"
+ "define-advice" "defadvice" "defalias"
+ "define-derived-mode" "define-minor-mode"
+ "define-generic-mode" "define-global-minor-mode"
+ "define-globalized-minor-mode" "define-skeleton"
+ "define-widget" "ert-deftest" "defconst" "defcustom"
+ "defvaralias" "defvar-local" "defface" "define-error"))))
+
(provide 'lisp-mode-tests)
;;; lisp-mode-tests.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8abe4ca83a1: Add 'define-error' to font lock keywords for emacs-lisp-mode,
Eli Zaretskii <=