diff options
| author | Paul Nelson <ultrono@gmail.com> | 2024-05-05 15:27:32 +0200 |
|---|---|---|
| committer | Paul Nelson <ultrono@gmail.com> | 2024-05-05 15:27:32 +0200 |
| commit | 832496d45422b731d56479168144272590150389 (patch) | |
| tree | 0ecd45214175579f44db09851ad448270a53887a | |
| parent | 1c5248a3aceadb6e93496c95c866ae33a45ef46e (diff) | |
Support indirect buffers
* tex-continuous.el (tex-continuous--buffer-file-name): New function.
(tex-continuous-process-item, tex-continuous--fresh-p): Use it.
| -rw-r--r-- | tex-continuous.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tex-continuous.el b/tex-continuous.el index 9745ff3..1cdbedb 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)) |