mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-27 15:40:47 -08:00
Code Issues Projects Releases Wiki Activity

(xref--find-buffer-visiting): Speed up by using get-file-buffer

Browse source 
* lisp/progmodes/xref.el (xref--find-buffer-visiting):
Speed up by using get-file-buffer.
(xref--collect-matches): Remove the condition on remote-id.
(https://lists.gnu.org/archive/html/emacs-devel/2019-12/msg00753.html)
This commit is contained in:
Dmitry Gutov 2019-12-27 19:17:48 +03:00
parent 3f2788d4ac
commit 8224ed7d40
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/xref.el
View file

@ -1293,9 +1293,7 @@ Such as the current syntax table and the applied syntax properties."
(pcase-let* ((`(,line ,file ,text) hit)
(remote-id (file-remote-p default-directory))
(file (and file (concat remote-id file)))
(buf (unless remote-id
;; find-buffer-visiting is slow on remote.
(xref--find-buffer-visiting file)))
(buf (xref--find-buffer-visiting file))
(syntax-needed (xref--regexp-syntax-dependent-p regexp)))
(if buf
(with-current-buffer buf
@ -1354,7 +1352,7 @@ Such as the current syntax table and the applied syntax properties."
(defun xref--find-buffer-visiting (file)
(unless (equal (car xref--last-visiting-buffer) file)
(setq xref--last-visiting-buffer
(cons file (find-buffer-visiting file))))
(cons file (get-file-buffer file))))
(cdr xref--last-visiting-buffer))
(provide 'xref)