From: Roland Winkler <winkler@gnu.org>
Date: Wed, 25 Sep 2024 04:14:27 +0000 (-0500)
Subject: bibtex-mode: fix patch bibtex validation for non-file buffers
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a5c45efa1eb082d36ade49bed81ebab2fcc507e;p=emacs.git

bibtex-mode: fix patch bibtex validation for non-file buffers

(cherry picked from commit bd25a98b4e70dbdcb6db92b0b39122a6c7386044)
---

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 1473fc2bd6b..cbcea8af012 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -4638,16 +4638,17 @@ Return t if test was successful, nil otherwise."
             (bibtex-progress-message 'done)))))
 
     (if error-list
-        (let* ((file-p (buffer-file-name))
-               (file (if file-p (file-name-nondirectory file-p) (buffer-name)))
+        (let* ((is-file (buffer-file-name))
+               (file (if is-file (file-name-nondirectory is-file) (buffer-name)))
                (dir default-directory)
                (err-buf "*BibTeX validation errors*"))
           (setq error-list (sort error-list #'car-less-than-car))
           (with-current-buffer (get-buffer-create err-buf)
             (setq default-directory dir)
             (unless (eq major-mode 'compilation-mode) (compilation-mode))
-            (setq-local compilation-parse-errors-filename-function
-                        (if file-p #'identity #'get-buffer))
+            (unless is-file
+              (setq-local compilation-parse-errors-filename-function
+                          #'get-buffer))
             (let ((inhibit-read-only t))
               (delete-region (point-min) (point-max))
               (insert (substitute-command-keys