From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 26 Jan 2025 18:10:53 +0000 (+0100)
Subject: (cl-case): Leave keywords unquoted.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5394b7ff03106850d390305b24eb3aa08ac02958;p=emacs.git

(cl-case): Leave keywords unquoted.
---

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)))))