; Try not to affect match data

* lisp/xdg.el (xdg-user-dir): Use save-match-data.

diff --git a/lisp/xdg.el b/lisp/xdg.el
index 4973065f91a8a083b55e4dd77a6ffaf6c42e6295..916de00d5e2c8e9edfdafe0bf65266f0bbe2c8b4 100644 (file)
--- a/lisp/xdg.el
+++ b/lisp/xdg.el
@@ -140,9 +140,10 @@ This should be called at the beginning of a line."
 (defun xdg-user-dir (name)
   "Return the path of user directory referred to by NAME."
   (when (null xdg-user-dirs)
-    (setq xdg-user-dirs
-          (xdg--user-dirs-parse-file
-           (expand-file-name "user-dirs.dirs" (xdg-config-home)))))
+    (save-match-data
+      (setq xdg-user-dirs
+            (xdg--user-dirs-parse-file
+             (expand-file-name "user-dirs.dirs" (xdg-config-home))))))
   (let ((dir (cdr (assoc name xdg-user-dirs))))
     (when dir (expand-file-name dir))))