diff options
| -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)) |