From 9a5c45efa1eb082d36ade49bed81ebab2fcc507e Mon Sep 17 00:00:00 2001 From: Roland Winkler Date: Tue, 24 Sep 2024 23:14:27 -0500 Subject: [PATCH] bibtex-mode: fix patch bibtex validation for non-file buffers (cherry picked from commit bd25a98b4e70dbdcb6db92b0b39122a6c7386044) --- lisp/textmodes/bibtex.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 -- 2.39.5