# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893109987 0
# Node ID 63185360c2fa2ea24153c230423e0eb851a851aa
# Parent  b0ae6e29c252a48f0dc7678a8137cda9d86f6a50
(cl-do-arglist): Undo previous change.

diff -r b0ae6e29c252 -r 63185360c2fa lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Mon Apr 20 20:45:25 1998 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Mon Apr 20 22:06:27 1998 +0000
@@ -302,7 +302,14 @@
 					  'quote
 					  (list nil (cl-const-expr-val def)))
 				       (list 'list nil def))))))))
-	      (cl-push karg keys)))))
+	      (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)))))))
       (setq keys (nreverse keys))
       (or (and (eq (car args) '&allow-other-keys) (cl-pop args))
 	  (null keys) (= safety 0)