emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/auctex-cont-latexmk 832496d454 088/100: Support indirec


From: ELPA Syncer
Subject: [elpa] externals/auctex-cont-latexmk 832496d454 088/100: Support indirect buffers
Date: Thu, 6 Jun 2024 03:57:59 -0400 (EDT)

branch: externals/auctex-cont-latexmk
commit 832496d45422b731d56479168144272590150389
Author: Paul Nelson <ultrono@gmail.com>
Commit: Paul Nelson <ultrono@gmail.com>

    Support indirect buffers
    
    * tex-continuous.el (tex-continuous--buffer-file-name): New function.
    (tex-continuous-process-item, tex-continuous--fresh-p): Use it.
---
 tex-continuous.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/tex-continuous.el b/tex-continuous.el
index 9745ff3d43..1cdbedb6b9 100644
--- a/tex-continuous.el
+++ b/tex-continuous.el
@@ -108,6 +108,9 @@ Takes into account `TeX-output-dir'."
   (interactive)
   (message "%s" (tex-continuous--get-help (help-at-pt-kbd-string))))
 
+(defun tex-continuous--buffer-file-name ()
+  (or buffer-file-name (buffer-file-name (buffer-base-buffer))))
+
 (defun tex-continuous-process-item (type file line message offset _context
                                          search-string _line-end bad-box
                                          _error-point ignore)
@@ -125,7 +128,7 @@ is an error rather than a warning."
           (save-restriction
             (widen)
             (cond
-             ((file-equal-p file (buffer-file-name))
+             ((file-equal-p file (tex-continuous--buffer-file-name))
               (when line
                 (if (eq type 'error)
                     (save-excursion
@@ -219,7 +222,7 @@ This is the case if the current buffer is not modified, the 
current
 buffer is a file, the current buffer has a log file, the log file is
 newer than the current buffer, and the current latexmk compilation is
 either in a watching state or has not updated recently."
-  (when-let* ((file (buffer-file-name))
+  (when-let* ((file (tex-continuous--buffer-file-name))
               (log-file (tex-continuous--build-file "log")))
     (and
      (when-let ((buf tex-continuous--compilation-buffer))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]