emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Francesco Potortì
Subject: [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-extra.el
Date: Mon, 26 May 2003 11:57:47 -0400

Index: emacs/lisp/emacs-lisp/cl-extra.el
diff -c emacs/lisp/emacs-lisp/cl-extra.el:1.23 
emacs/lisp/emacs-lisp/cl-extra.el:1.24
*** emacs/lisp/emacs-lisp/cl-extra.el:1.23      Fri Sep 27 18:32:48 2002
--- emacs/lisp/emacs-lisp/cl-extra.el   Sat May  3 20:44:25 2003
***************
*** 203,228 ****
    (not (apply 'every cl-pred cl-seq cl-rest)))
  
  ;;; Support for `loop'.
! (defun cl-map-keymap (cl-func cl-map)
!   (while (symbolp cl-map) (setq cl-map (symbol-function cl-map)))
!   (if (listp cl-map)
!       (let ((cl-p cl-map))
!       (while (consp (setq cl-p (cdr cl-p)))
!         (cond ((consp (car cl-p))
!                (funcall cl-func (car (car cl-p)) (cdr (car cl-p))))
!               ((or (vectorp (car cl-p)) (char-table-p (car cl-p)))
!                (cl-map-keymap cl-func (car cl-p)))
!               ((eq (car cl-p) 'keymap)
!                (setq cl-p nil)))))
!     (let ((cl-i -1))
!       (while (< (setq cl-i (1+ cl-i)) (length cl-map))
!       (if (aref cl-map cl-i)
!           (funcall cl-func cl-i (aref cl-map cl-i)))))))
  
  (defun cl-map-keymap-recursively (cl-func-rec cl-map &optional cl-base)
    (or cl-base
        (setq cl-base (copy-sequence [0])))
!   (cl-map-keymap
     (function
      (lambda (cl-key cl-bind)
        (aset cl-base (1- (length cl-base)) cl-key)
--- 203,214 ----
    (not (apply 'every cl-pred cl-seq cl-rest)))
  
  ;;; Support for `loop'.
! (defalias 'cl-map-keymap 'map-keymap)
  
  (defun cl-map-keymap-recursively (cl-func-rec cl-map &optional cl-base)
    (or cl-base
        (setq cl-base (copy-sequence [0])))
!   (map-keymap
     (function
      (lambda (cl-key cl-bind)
        (aset cl-base (1- (length cl-base)) cl-key)
***************
*** 721,731 ****
                      (sublis sub (nreverse decls))
                      (list
                       (list* 'list '(quote apply)
!                             (list 'list '(quote quote)
!                                   (list 'function
!                                         (list* 'lambda
!                                                (append new (cadadr form))
!                                                (sublis sub body))))
                              (nconc (mapcar (function
                                              (lambda (x)
                                                (list 'list '(quote quote) x)))
--- 707,716 ----
                      (sublis sub (nreverse decls))
                      (list
                       (list* 'list '(quote apply)
!                             (list 'function
!                                   (list* 'lambda
!                                          (append new (cadadr form))
!                                          (sublis sub body)))
                              (nconc (mapcar (function
                                              (lambda (x)
                                                (list 'list '(quote quote) x)))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]