[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lucid.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lucid.el |
Date: |
Tue, 16 Nov 2004 12:20:31 -0500 |
Index: emacs/lisp/emacs-lisp/lucid.el
diff -c emacs/lisp/emacs-lisp/lucid.el:1.32 emacs/lisp/emacs-lisp/lucid.el:1.33
*** emacs/lisp/emacs-lisp/lucid.el:1.32 Mon Sep 1 15:45:22 2003
--- emacs/lisp/emacs-lisp/lucid.el Tue Nov 16 17:06:56 2004
***************
*** 31,66 ****
(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.
--- 31,36 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lucid.el,
Richard M . Stallman <=