[Emacs-diffs] emacs-26 59e8533 1/3: Add save-match-data to abbreviate-file-name (Bug#32201)

[Noam Postavsky]

branch: emacs-26
commit 59e8533286cc8b5abc80b0966ef4b9fb676fbdfe
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Add save-match-data to abbreviate-file-name (Bug#32201)
    
    * lisp/files.el (abbreviate-file-name): Save match-data around
    expand-file-name; it is not guaranteed to preserve match-data, and may
    well do so depending on what file handlers and hooks are in effect.
---
 lisp/files.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/files.el b/lisp/files.el
index fb8c34b..4eb1560 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1929,7 +1929,7 @@ started Emacs, set `abbreviated-home-dir' to nil so it 
will be recalculated)."
                         (save-match-data
                           (string-match "^[a-zA-`]:/$" filename))))
                (equal (get 'abbreviated-home-dir 'home)
-                      (expand-file-name "~")))
+                      (save-match-data (expand-file-name "~"))))
          (setq filename
                (concat "~"
                        (match-string 1 filename)