diff options
| author | Miles Bader <miles@gnu.org> | 2004-11-19 06:55:13 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2004-11-19 06:55:13 +0000 |
| commit | 148396568043f50499340911c656c7234cefd50d (patch) | |
| tree | 6bb3c035d0194f7e26bc8254a5189cb5a8722ce2 /lisp/emacs-lisp/lucid.el | |
| parent | 77229aad98d5c81a559fb1ba5161ed2a7f13aec4 (diff) | |
| parent | 6dd06769a945f59e048d8328e37a77b41f8c798f (diff) | |
| download | emacs-148396568043f50499340911c656c7234cefd50d.tar.gz emacs-148396568043f50499340911c656c7234cefd50d.tar.bz2 emacs-148396568043f50499340911c656c7234cefd50d.zip | |
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-72
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-693
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-695
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-696
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-697
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-702
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-703
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-704
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-708
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-72
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-73
Merge from emacs--cvs-trunk--0
Diffstat (limited to 'lisp/emacs-lisp/lucid.el')
| -rw-r--r-- | lisp/emacs-lisp/lucid.el | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el index 80e5ef330d3..5d02091a981 100644 --- a/lisp/emacs-lisp/lucid.el +++ b/lisp/emacs-lisp/lucid.el @@ -31,36 +31,6 @@ (defalias 'current-time-seconds 'current-time) -;; In case cl-map-keymap is an alias for map-keymap, avoid circular calls. -(fset 'cl-map-keymap (indirect-function 'cl-map-keymap)) - -(defun map-keymap (function keymap &optional sort-first) - "Call FUNCTION for every binding in KEYMAP. -This does not include bindings inherited from a parent keymap. -FUNCTION receives two arguments each time it is called: -the character (more generally, the event type) that is bound, -and the binding it has. - -Note that passing the event type directly to `define-key' does not work -in Emacs 19. We do not emulate that particular feature of Lucid Emacs. -If your code does that, modify it to make a vector containing the event -type that you get. That will work in both versions of Emacs." - (if sort-first - (let (list) - (cl-map-keymap (lambda (a b) (push (cons a b) list)) - keymap) - (setq list (sort list - (lambda (a b) - (setq a (car a) b (car b)) - (if (integerp a) - (if (integerp b) (< a b) - t) - (if (integerp b) t - (string< a b)))))) - (dolist (p list) - (funcall function (car p) (cdr p)))) - (cl-map-keymap function keymap))) - (defun read-number (prompt &optional integers-only) "Read a number from the minibuffer. Keep reentering the minibuffer until we get suitable input. |