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

xref--find-file-buffer: Check modified-p and modtime

Browse source 
* lisp/progmodes/xref.el (xref--find-file-buffer):
Check whether the buffer contents match what's on disk
(bug#54025).
This commit is contained in:
Dmitry Gutov 2022-02-25 03:34:59 +02:00
parent d29cc1e8a0
commit fa2b60615b
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/progmodes/xref.el
View file

@ -2010,10 +2010,16 @@ Such as the current syntax table and the applied syntax properties."
(defun xref--find-file-buffer (file)
(unless (equal (car xref--last-file-buffer) file)
(setq xref--last-file-buffer
;; `find-buffer-visiting' is considerably slower,
;; especially on remote files.
(cons file (get-file-buffer file))))
;; `find-buffer-visiting' is considerably slower,
;; especially on remote files.
(let ((buf (get-file-buffer file)))
(when (and buf
(or
(buffer-modified-p buf)
(not (verify-visited-file-modtime (current-buffer)))))
;; We can't use buffers whose contents diverge from disk (bug#54025).
(setq buf nil))
(setq xref--last-file-buffer (cons file buf))))
(cdr xref--last-file-buffer))
(provide 'xref)