[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-extra.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-extra.el |
Date: |
Sat, 03 May 2003 20:44:25 -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)))
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-extra.el,
Stefan Monnier <=