From bb6b5db2b7af3f1aaf8866d4dd6ce944d10244f8 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Gerd=20M=C3=B6llmann?= <gerd@gnu.org>
Date: Sat, 15 Oct 2022 14:14:57 +0200
Subject: [PATCH] Dpn't assume symbol-name of keywords starts with colon

* lisp/emacs-lisp/cl-seq.el (cl--parsing-keywords):
Don't substring the keyword symbol name.
---
 lisp/emacs-lisp/cl-seq.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el
index 60e204eaf51..7cff3f3ce10 100644
--- a/lisp/emacs-lisp/cl-seq.el
+++ b/lisp/emacs-lisp/cl-seq.el
@@ -58,7 +58,7 @@
                (if (eq var :if-not)
                    (setq mem `(and ,mem (setq cl-if ,mem) t)))
                (list (intern
-                      (format "cl-%s" (substring (symbol-name var) 1)))
+                      (format "cl-%s" (substring (symbol-name var) 0)))
                      (if (consp x) `(or ,mem ,(car (cdr x))) mem))))
            kwords)
      ,@(append
-- 
2.39.2