[Emacs-diffs] Changes to emacs/lisp/subr.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/03/25 19:42:37

Index: lisp/subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.583
retrieving revision 1.584
diff -u -b -r1.583 -r1.584
--- lisp/subr.el        25 Mar 2008 17:32:20 -0000      1.583
+++ lisp/subr.el        25 Mar 2008 19:42:33 -0000      1.584
@@ -532,10 +532,9 @@
            (setq inserted t)))
       (setq tail (cdr tail)))))
 
-(defun map-keymap-internal (function keymap &optional sort-first)
+(defun map-keymap-sorted (function keymap)
   "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)
@@ -549,8 +548,7 @@
                                ;; string< also accepts symbols.
                               (string< a b))))))
        (dolist (p list)
-         (funcall function (car p) (cdr p))))
-    (map-keymap function keymap)))
+      (funcall function (car p) (cdr p)))))
 
 (put 'keyboard-translate-table 'char-table-extra-slots 0)