(cl-do-arglist): Don't add (setq :<key> ':<key>).

2 files changed, 5 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index efd4a246086..44ec52f08b3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-03-17  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * emacs-lisp/cl-macs.el (cl-do-arglist): Don't add (setq :<key> ':<key>).
+
 2000-03-16  Dave Love  <fx@gnu.org>
 
         * progmodes/f90.el (f90): Put custom group under `languages', not
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index f2663d7f385..50b5735f6a2 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -285,14 +285,7 @@ ARGLIST allows full Common Lisp conventions."
                                           'quote
                                           (list nil (cl-const-expr-val def)))
                                        (list 'list nil def))))))))
-              (cl-push karg keys)
-              ;; In Emacs 20.3, keyword symbols are preinitialized,
-              ;; making this unnecessary.  But let's keep it for
-              ;; compatibility's sake.
-              (if (= (aref (symbol-name karg) 0) ?:)
-                  (progn (set karg karg)
-                         (cl-push (list 'setq karg (list 'quote karg))
-                                  bind-inits)))))))
+              (cl-push karg keys)))))
       (setq keys (nreverse keys))
       (or (and (eq (car args) '&allow-other-keys) (cl-pop args))
           (null keys) (= safety 0)