Mercurial > emacs
changeset 21686:63185360c2fa
(cl-do-arglist): Undo previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 20 Apr 1998 22:06:27 +0000 |
| parents | b0ae6e29c252 |
| children | 6645cda31681 |
| files | lisp/emacs-lisp/cl-macs.el |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)