[elpa] externals/auctex-cont-latexmk 3eeebb581f 008/100: Fix "repeat when reversing direction" nuisance

[ELPA Syncer]

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

    Fix "repeat when reversing direction" nuisance
---
 czm-tex-compile.el | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/czm-tex-compile.el b/czm-tex-compile.el
index 98b0ec0486..b13a2bacd5 100644
--- a/czm-tex-compile.el
+++ b/czm-tex-compile.el
@@ -29,7 +29,7 @@
 ;; `czm-tex-compile-command' to change the command used to compile the
 ;; document.
 ;;
-;; Sample use-package declaration:
+;; My use-package declaration:
 ;;
 ;; (use-package czm-tex-compile
 ;;     :vc (:url "https://github.com/ultronozm/czm-tex-compile.el.git";
@@ -37,8 +37,8 @@
 ;;     :after latex
 ;;     :bind
 ;;     ("C-c k" . czm-tex-compile)
-;;     ("M-]" . czm-tex-compile-next-error)
-;;     ("M-[" . czm-tex-compile-previous-error))
+;;     ("s-]" . czm-tex-compile-next-error)
+;;     ("s-[" . czm-tex-compile-previous-error))
 
 ;;; Code:
 
@@ -82,6 +82,12 @@ Used for navigating LaTeX warnings in the log file."
               (point))))
     (replace-regexp-in-string "\n" "" (buffer-substring-no-properties beg 
end))))
 
+;; TODO: look for the line <name>.bbl in the file, and don't jump to
+;; line numbers found in log entries beyond that point (just display
+;; them).  Also, use insert-file-contents rather than
+;; find-file-noselect, etc.  Similarly, do the same for .aux files in
+;; your other packages (tex-util, preview).
+
 (defun czm-tex-compile--navigate-log-error (direction)
   "Helper function to navigate warnings in the log file.
 DIRECTION should be either \='next or \='previous."
@@ -101,6 +107,8 @@ DIRECTION should be either \='next or \='previous."
        (goto-char log-pos))
       (let ((search-fn
             (if (eq direction 'previous) #'re-search-backward 
#'re-search-forward)))
+        (when (eq direction 'next)
+          (forward-line 2))
        (when (funcall search-fn
                       (concat "^"
                               (regexp-opt
@@ -126,7 +134,8 @@ DIRECTION should be either \='next or \='previous."
                      (setq line (cons line-number line-prefix)))))
              (when (string-match "input line \\([0-9]+\\)" description)
                (setq line (string-to-number (match-string 1 description)))))
-           (forward-line (if (eq direction 'previous) -1 1))
+            (forward-line -1)
+           ;; (forward-line (if (eq direction 'previous) -1 1))
            
            (setq log-pos (point))))))
     (unless already-open