diff options
author | Mark Oteiza <mvoteiza@udel.edu> | 2017-09-06 11:20:21 -0400 |
---|---|---|
committer | Mark Oteiza <mvoteiza@udel.edu> | 2017-09-06 11:20:21 -0400 |
commit | da3e1016349b2f552f149ccf577b60e377c3095a (patch) | |
tree | d8f7f876271a492cad7854904247b36a5d175f03 /lisp | |
parent | 01a82957d25e7fc3fe4ec799f3c05f22a4278428 (diff) | |
download | emacs-da3e1016349b2f552f149ccf577b60e377c3095a.tar.gz |
; Try not to affect match data
* lisp/xdg.el (xdg-user-dir): Use save-match-data.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/xdg.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/xdg.el b/lisp/xdg.el index 4973065f91a..916de00d5e2 100644 --- 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)))) |