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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index efd4a24608669c3aee7354675c083f5f7f546dd0..44ec52f08b364c60b70033a825dcb624d92a2b46 100644 (file)
--- 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 f2663d7f385171d52fcc0f9c5e63d5069156d84a..50b5735f6a22bf3ca1a79186d21e48029f5c0c7d 100644 (file)
--- 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)