diff options
| author | Dmitry Gutov | 2017-09-26 01:44:54 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2017-09-26 01:47:23 +0300 |
| commit | 5a41dd0a1f317b36f86fb4e52db945385250c56e (patch) | |
| tree | 93ea17f26b8e444cf33ec08b1cc82c6dd7c606fa | |
| parent | 49cd561dc62ea6b3fbedab7aef0f020733f4cf09 (diff) | |
| download | emacs-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.el | 2 |
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)) |