master dbf08491a5: Make more ranges sort properly in describe-keymap

[Lars Ingebrigtsen]

branch: master
commit dbf08491a5a45d88048082ba6ece1b61bdbc622b
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make more ranges sort properly in describe-keymap
    
    * lisp/subr.el (keymap-canonicalize): Don't consider two-character
    ranges as a range (bug#11325).
---
 lisp/subr.el            | 13 +++++++++++--
 test/lisp/help-tests.el |  4 ++--
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/lisp/subr.el b/lisp/subr.el
index fccd75361b..a1eb6fe3af 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1149,8 +1149,17 @@ Subkeymaps may be modified but are not canonicalized."
       (setq map (map-keymap ;; -internal
                  (lambda (key item)
                    (if (consp key)
-                       ;; Treat char-ranges specially.
-                       (push (cons key item) ranges)
+                       (if (= (car key) (1- (cdr key)))
+                           ;; If we have a two-character range, then
+                           ;; treat it as two separate characters
+                           ;; (because this makes `describe-bindings'
+                           ;; look better and shouldn't affect
+                           ;; anything else).
+                           (progn
+                             (push (cons (car key) item) bindings)
+                             (push (cons (cdr key) item) bindings))
+                         ;; Treat char-ranges specially.
+                         (push (cons key item) ranges))
                      (push (cons key item) bindings)))
                  map)))
     ;; Create the new map.
diff --git a/test/lisp/help-tests.el b/test/lisp/help-tests.el
index d27e3d7cd4..9c9dddcd19 100644
--- a/test/lisp/help-tests.el
+++ b/test/lisp/help-tests.el
@@ -286,11 +286,11 @@ M-g M-c           switch-to-completions
            "
 Key             Binding
 -+
-( .. )         short-range
 1 .. 4         foo-range
 a .. c         foo-other-range
 
 C-e            foo-something
+( .. )         short-range
 x              foo-original
 <F1>           foo-function-key1
 "))))
@@ -304,12 +304,12 @@ x         foo-original
            "
 Key             Binding
 -+
-( .. )         short-range
 1 .. 4         foo-range
 a .. c         foo-other-range
 
 C-e            foo-something
   (this binding is currently shadowed)
+( .. )         short-range
 x              foo-original
   (this binding is currently shadowed)
 <F1>           foo-function-key1