aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Gutov2017-09-26 01:44:54 +0300
committerDmitry Gutov2017-09-26 01:47:23 +0300
commit5a41dd0a1f317b36f86fb4e52db945385250c56e (patch)
tree93ea17f26b8e444cf33ec08b1cc82c6dd7c606fa
parent49cd561dc62ea6b3fbedab7aef0f020733f4cf09 (diff)
downloademacs-5a41dd0a1f317b36f86fb4e52db945385250c56e.tar.gz
emacs-5a41dd0a1f317b36f86fb4e52db945385250c56e.zip
Reset default-directory inside *xref-grep* buffer
* lisp/progmodes/xref.el (xref-collect-matches): Reset default-directory, too. (Bug#28575)
-rw-r--r--lisp/progmodes/xref.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 623c9c4e07f..80cdcb3f18b 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -928,12 +928,14 @@ IGNORES is a list of glob patterns."
928 files 928 files
929 (expand-file-name dir) 929 (expand-file-name dir)
930 ignores)) 930 ignores))
931 (def default-directory)
931 (buf (get-buffer-create " *xref-grep*")) 932 (buf (get-buffer-create " *xref-grep*"))
932 (`(,grep-re ,file-group ,line-group . ,_) (car grep-regexp-alist)) 933 (`(,grep-re ,file-group ,line-group . ,_) (car grep-regexp-alist))
933 (status nil) 934 (status nil)
934 (hits nil)) 935 (hits nil))
935 (with-current-buffer buf 936 (with-current-buffer buf
936 (erase-buffer) 937 (erase-buffer)
938 (setq default-directory def)
937 (setq status 939 (setq status
938 (call-process-shell-command command nil t)) 940 (call-process-shell-command command nil t))
939 (goto-char (point-min)) 941 (goto-char (point-min))