diff options
| -rw-r--r-- | lisp/progmodes/xref.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index bbd3940be4f..12f32b1cdf6 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." | |||
| 1293 | (pcase-let* ((`(,line ,file ,text) hit) | 1293 | (pcase-let* ((`(,line ,file ,text) hit) |
| 1294 | (remote-id (file-remote-p default-directory)) | 1294 | (remote-id (file-remote-p default-directory)) |
| 1295 | (file (and file (concat remote-id file))) | 1295 | (file (and file (concat remote-id file))) |
| 1296 | (buf (unless remote-id | 1296 | (buf (xref--find-buffer-visiting file)) |
| 1297 | ;; find-buffer-visiting is slow on remote. | ||
| 1298 | (xref--find-buffer-visiting file))) | ||
| 1299 | (syntax-needed (xref--regexp-syntax-dependent-p regexp))) | 1297 | (syntax-needed (xref--regexp-syntax-dependent-p regexp))) |
| 1300 | (if buf | 1298 | (if buf |
| 1301 | (with-current-buffer buf | 1299 | (with-current-buffer buf |
| @@ -1354,7 +1352,7 @@ Such as the current syntax table and the applied syntax properties." | |||
| 1354 | (defun xref--find-buffer-visiting (file) | 1352 | (defun xref--find-buffer-visiting (file) |
| 1355 | (unless (equal (car xref--last-visiting-buffer) file) | 1353 | (unless (equal (car xref--last-visiting-buffer) file) |
| 1356 | (setq xref--last-visiting-buffer | 1354 | (setq xref--last-visiting-buffer |
| 1357 | (cons file (find-buffer-visiting file)))) | 1355 | (cons file (get-file-buffer file)))) |
| 1358 | (cdr xref--last-visiting-buffer)) | 1356 | (cdr xref--last-visiting-buffer)) |
| 1359 | 1357 | ||
| 1360 | (provide 'xref) | 1358 | (provide 'xref) |