Function: xref--find-file-buffer

xref--find-file-buffer is a byte-compiled function defined in xref.el.gz.

Signature

(xref--find-file-buffer FILE)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/xref.el.gz
(defun xref--find-file-buffer (file)
  (unless (equal (car xref--last-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)
                  (unless xref--hits-remote-id
                    (not (verify-visited-file-modtime buf)))))
        ;; 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))