[AUCTeX-diffs] GNU AUCTeX branch, master, updated. e4b2e6a76965156257a19bd65f9bc76dfb743b6e

[Mosè Giordano]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  e4b2e6a76965156257a19bd65f9bc76dfb743b6e (commit)
      from  073b17a2dc30b771ab16df7297d68914fd1e12e3 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit e4b2e6a76965156257a19bd65f9bc76dfb743b6e
Author: Mosè Giordano <address@hidden>
Date:   Wed Aug 24 17:58:54 2016 +0200

    Make TeX-previous-error go backward
    
    * tex-buf.el (TeX-parse-TeX): Decrease `TeX-error-last-visited' when
      `arg' is negative.  This fixes the behavior of `TeX-previous-error'.

diff --git a/tex-buf.el b/tex-buf.el
index 431c011..575c1ed 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -2319,7 +2319,10 @@ already in an Emacs buffer) and the cursor is placed at 
the error."
            ;; `TeX-suppress-ignored-warnings' is non-nil and there are ignore
            ;; warnings.
            (while (null (zerop arg))
-             (setq TeX-error-last-visited (1+ TeX-error-last-visited)
+             (setq TeX-error-last-visited
+                   ;; Increase or decrese `TeX-error-last-visited' depending on
+                   ;; the sign of `arg'.
+                   (+ (signum arg) TeX-error-last-visited)
                    item (if (natnump TeX-error-last-visited)
                             (nth TeX-error-last-visited TeX-error-list)
                           ;; XEmacs doesn't support `nth' with a negative 
index.
@@ -2327,9 +2330,7 @@ already in an Emacs buffer) and the cursor is placed at 
the error."
              ;; Increase or decrease `arg' only if the warning isn't to be
              ;; skipped.
              (unless (TeX-error-list-skip-warning-p (nth 0 item) (nth 10 item))
-               (setq arg (if (> arg 0)
-                             (1- arg)
-                           (1+ arg)))))
+               (setq arg (- arg (signum arg)))))
            (if (< TeX-error-last-visited -1)
                (setq TeX-error-last-visited -1))
            (cond ((or (null item)

-----------------------------------------------------------------------

Summary of changes:
 tex-buf.el |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX