Mercurial > emacs

changeset 28178:91ebdd6d4e30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cl-do-arglist): Don't add (setq :<key> ':<key>).
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 17 Mar 2000 19:32:42 +0000
parents ff69c2cd80c1
children 5bcc6166bde4
files lisp/emacs-lisp/cl-macs.el
diffstat 1 files changed, 1 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el	Fri Mar 17 10:07:00 2000 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Fri Mar 17 19:32:42 2000 +0000
@@ -285,14 +285,7 @@
 					  '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)