Fix sorting in speedbar sub-groups

* lisp/speedbar.el (speedbar-prefix-group-tag-hierarchy): Sort
entries in sub-groups (bug#47073).

diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 6c4c8eb8132c9579c4be94f14e8969e8a609b51f..12e57b110825469dd19abf7cd284757955310066 100644 (file)
--- 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