From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 18 Mar 2021 07:25:17 +0000 (+0100)
Subject: Fix sorting in speedbar sub-groups
X-Git-Tag: emacs-28.0.90~3237
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e00906926325a85649394f201f575c4e3170637;p=emacs.git

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 6c4c8eb8132..12e57b11082 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