* subr.el (map-keymap-sorted): Rename from map-keymap-internal.

Remove `sort-first' argument.
* keymap.c (Fmap_keymap): Use `map-keymap-sorted.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b052448c6ab8cfe498a280afc1628867b92e09b2..8ffa1c9d92c86a0b84faf1d57bf9363da08894a8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-03-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * subr.el (map-keymap-sorted): Rename from map-keymap-internal.
+       Remove `sort-first' argument.
+
        * subr.el (redisplay-end-trigger-functions)
        (window-redisplay-end-trigger, set-window-redisplay-end-trigger)
        (process-filter-multibyte-p, set-process-filter-multibyte):

diff --git a/lisp/subr.el b/lisp/subr.el
index 1a6f2a9dc7498366584c2cc3a9714a2cd5f55261..b23ca358060a43c9677b2d6d05671498fa71a6f1 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -532,25 +532,23 @@ The order of bindings in a keymap matters when it is used as a menu."
            (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)
-       (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< also accepts symbols.
-                              (string< a b))))))
-       (dolist (p list)
-         (funcall function (car p) (cdr p))))
-    (map-keymap function keymap)))
+  (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< also accepts symbols.
+                           (string< a b))))))
+    (dolist (p list)
+      (funcall function (car p) (cdr p)))))
 
 (put 'keyboard-translate-table 'char-table-extra-slots 0)
 

diff --git a/src/ChangeLog b/src/ChangeLog
index 6ebc93e66d8a583a68ec42f9dae60f1a60360e07..15cbb094d6a76d26b0eac3562c602e1c7f548dfb 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2008-03-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * keymap.c (Fmap_keymap): Use `map-keymap-sorted.
+
        * frame.c (Fmodify_frame_parameters, x_set_frame_parameters):
        Use XCAR/XCDR.
 

diff --git a/src/keymap.c b/src/keymap.c
index e91df88aaff806bb96f68d5f9abc57c50f29fdea..310b46b23bf96871183c6c1f65bc8fd0cdc59fa7 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -735,7 +735,7 @@ usage: (map-keymap FUNCTION KEYMAP)  */)
        significance.  */
     xsignal1 (Qinvalid_function, function);
   if (! NILP (sort_first))
-    return call3 (intern ("map-keymap-internal"), function, keymap, Qt);
+    return call2 (intern ("map-keymap-sorted"), function, keymap);
 
   map_keymap (keymap, map_keymap_call, function, NULL, 1);
   return Qnil;