(cl-case): Leave keywords unquoted.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 7559c58e77a7ddbb05516c91a363651100cfb5c8..ed5378ffb1e2d108d7c3eb2bb08631b2decc77d3 100644 (file)
--- 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)))))