diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-06-16 16:31:29 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-06-16 16:31:29 +0000 |
| commit | cc1084a841fafad5adc3604ed9476fd2cab9f36a (patch) | |
| tree | ee51afc01038835e777a8c6374e36302ba32f36e /lisp/emacs-lisp | |
| parent | b86170f9b766d7a0aca070572bbc0a080f8eb178 (diff) | |
| download | emacs-cc1084a841fafad5adc3604ed9476fd2cab9f36a.tar.gz emacs-cc1084a841fafad5adc3604ed9476fd2cab9f36a.tar.bz2 emacs-cc1084a841fafad5adc3604ed9476fd2cab9f36a.zip | |
(cl-parse-loop-clause): Use map-keymap.
(defsubst*): Don't put a `cl-whole argument if it's not used.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index f861aa546e3..a6e081fd0d1 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -912,7 +912,7 @@ Valid clauses are: (setq var (prog1 other (setq other var)))) (setq loop-map-form (list (if (memq word '(key-seq key-seqs)) - 'cl-map-keymap-recursively 'cl-map-keymap) + 'cl-map-keymap-recursively 'map-keymap) (list 'function (list* 'lambda (list var other) '--cl-map)) map)))) @@ -2497,7 +2497,9 @@ surrounded by (block NAME ...). (list 'progn (if p nil ; give up if defaults refer to earlier args (list 'define-compiler-macro name - (list* '&whole 'cl-whole '&cl-quote args) + (if (memq '&key args) + (list* '&whole 'cl-whole '&cl-quote args) + (cons '&cl-quote args)) (list* 'cl-defsubst-expand (list 'quote argns) (list 'quote (list* 'block name body)) (not (or unsafe (cl-expr-access-order pbody argns))) |