procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Reset xref-show-xrefs-function temporarily

Browse source 
* lisp/dired-aux.el (dired-do-find-regexp-and-replace):
Make sure xref-show-xrefs-function has the necessary value (bug#44905).
This commit is contained in:
Dmitry Gutov 2020-12-01 03:46:27 +02:00
parent 3e6525d69f
commit 749e4b7e0b
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/dired-aux.el
View file

@ -3023,7 +3023,13 @@ REGEXP should use constructs supported by your local `grep' command."
(query-replace-read-args
"Query replace regexp in marked files" t t)))
(list (nth 0 common) (nth 1 common))))
(with-current-buffer (dired-do-find-regexp from)
(require 'xref)
(defvar xref-show-xrefs-function)
(with-current-buffer
(let ((xref-show-xrefs-function
;; Some future-proofing (bug#44905).
(eval (car (get 'xref-show-xrefs-function 'standard-value)))))
(dired-do-find-regexp from))
(xref-query-replace-in-results from to)))
(defun dired-nondirectory-p (file)