master 1e00906 2/2: Fix sorting in speedbar sub-groups

[Lars Ingebrigtsen]

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

    Fix sorting in speedbar sub-groups
    
    * lisp/speedbar.el (speedbar-prefix-group-tag-hierarchy): Sort
    entries in sub-groups (bug#47073).
---
 lisp/speedbar.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 6c4c8eb..12e57b1 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -2159,10 +2159,13 @@ passes some tests."
                          ;; way by displaying the range over which we
                          ;; have grouped them.
                          (setq work-list
-                               (cons (cons (concat short-start-name
-                                                   " to "
-                                                   short-end-name)
-                                           short-group-list)
+                               (cons (cons
+                                       (concat short-start-name
+                                              " to " short-end-name)
+                                       (sort (copy-sequence short-group-list)
+                                             (lambda (e1 e2)
+                                               (string< (car e1)
+                                                        (car e2)))))
                                      work-list))))
                     ;; Reset short group list information every time.
                        (setq short-group-list nil