[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/cl-macs.el
diff -c emacs/lisp/emacs-lisp/cl-macs.el:1.40 
emacs/lisp/emacs-lisp/cl-macs.el:1.41
*** emacs/lisp/emacs-lisp/cl-macs.el:1.40       Tue May  6 13:37:04 2003
--- emacs/lisp/emacs-lisp/cl-macs.el    Mon Jun 16 12:31:29 2003
***************
*** 912,918 ****
                      (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)
                              (list 'function (list* 'lambda (list var other)
                                                     '--cl-map)) map))))
  
--- 912,918 ----
                      (setq var (prog1 other (setq other var))))
                  (setq loop-map-form
                        (list (if (memq word '(key-seq key-seqs))
!                                 'cl-map-keymap-recursively 'map-keymap)
                              (list 'function (list* 'lambda (list var other)
                                                     '--cl-map)) map))))
  
***************
*** 2497,2503 ****
      (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)
                  (list* 'cl-defsubst-expand (list 'quote argns)
                         (list 'quote (list* 'block name body))
                         (not (or unsafe (cl-expr-access-order pbody argns)))
--- 2497,2505 ----
      (list 'progn
          (if p nil   ; give up if defaults refer to earlier args
            (list 'define-compiler-macro name
!                 (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)))