From 5394b7ff03106850d390305b24eb3aa08ac02958 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 26 Jan 2025 19:10:53 +0100 Subject: [PATCH] (cl-case): Leave keywords unquoted. --- lisp/emacs-lisp/cl-macs.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 7559c58e77a..ed5378ffb1e 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -840,7 +840,7 @@ compared by `eql'. (error "Duplicate key in case: %s" (car c))) (push (car c) head-list) - `(eql ,temp ',(car c)))) + `(eql ,temp ,(if (keywordp (car c)) (car c) `',(car c))))) (or (cdr c) '(nil)))) clauses))))) -- 2.39.5