[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-27 8224ed7: (xref--find-buffer-visiting): Speed up by using get-fi
From: |
Dmitry Gutov |
Subject: |
emacs-27 8224ed7: (xref--find-buffer-visiting): Speed up by using get-file-buffer |
Date: |
Fri, 27 Dec 2019 11:17:55 -0500 (EST) |
branch: emacs-27
commit 8224ed7d406e8654a163b05c0c647a5d44c090ed
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
(xref--find-buffer-visiting): Speed up by using get-file-buffer
* 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)
---
lisp/progmodes/xref.el | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index bbd3940..12f32b1 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-27 8224ed7: (xref--find-buffer-visiting): Speed up by using get-file-buffer,
Dmitry Gutov <=