master 5afad39: Fix `speedbar-directory-buttons' when using Tramp

[Lars Ingebrigtsen]

branch: master
commit 5afad3918bc8816b74e8efcff9cc441785446aa6
Author: Daniel Lenski <dlenski@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix `speedbar-directory-buttons' when using Tramp
    
    * lisp/speedbar.el (speedbar-directory-buttons): Make speedbar
    work with directories accessed via Tramp (bug#44622).
    
    Copyright-paperwork-exempt: yes
---
 lisp/speedbar.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 991c8a3..3619b23 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -1874,9 +1874,9 @@ matches the user directory ~, then it is replaced with a 
~.
 INDEX is not used, but is required by the caller."
   (let* ((tilde (expand-file-name "~/"))
         (dd (expand-file-name directory))
-        (junk (string-match (regexp-quote tilde) dd))
+        (junk (string-prefix-p "~/" dd))
         (displayme (if junk
-                       (concat "~/" (substring dd (match-end 0)))
+                       (concat "~/" (substring dd 2 nil))
                      dd))
         (p (point)))
     (if (string-match "^~[/\\]?\\'" displayme) (setq displayme tilde))