[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el |
Date: |
Tue, 16 Nov 2004 12:20:28 -0500 |
Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.425 emacs/lisp/subr.el:1.426
*** emacs/lisp/subr.el:1.425 Mon Nov 8 16:55:56 2004
--- emacs/lisp/subr.el Tue Nov 16 17:05:18 2004
***************
*** 484,489 ****
--- 484,507 ----
(setq inserted t)))
(setq tail (cdr tail)))))
+ (defun map-keymap-internal (function keymap &optional sort-first)
+ "Implement `map-keymap' with sorting.
+ Don't call this function; it is for internal use only."
+ (if sort-first
+ (let (list)
+ (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))))
+ (map-keymap function keymap)))
(defmacro kbd (keys)
"Convert KEYS to the internal Emacs key representation.