martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

; Try not to affect match data

Browse Source 
* lisp/xdg.el (xdg-user-dir): Use save-match-data.
This commit is contained in:
Mark Oteiza
2017-09-06 11:20:21 -04:00
parent 01a82957d2
commit da3e101634
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/xdg.el
View File

@@ -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))))