[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 9e627fc8d7b744dd5342cf3e0e76de67fa0eb9be

[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  9e627fc8d7b744dd5342cf3e0e76de67fa0eb9be (commit)
      from  b90986f447091376341612f4c2c40e60159cef51 (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 9e627fc8d7b744dd5342cf3e0e76de67fa0eb9be
Author: Mosè Giordano <address@hidden>
Date:   Sun Sep 4 18:22:29 2016 +0200

    Do not use a function from cl
    
    * tex-buf.el (TeX-parse-TeX): Do not use the `signum' function, provided
      by `cl' library.

diff --git a/tex-buf.el b/tex-buf.el
index 575c1ed..cf2ec78 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -2321,8 +2321,11 @@ already in an Emacs buffer) and the cursor is placed at 
the error."
            (while (null (zerop arg))
              (setq TeX-error-last-visited
                    ;; Increase or decrese `TeX-error-last-visited' depending on
-                   ;; the sign of `arg'.
-                   (+ (signum arg) TeX-error-last-visited)
+                   ;; the sign of `arg'.  Note: `signum' is a function from
+                   ;; `cl' library, do not be tempted to use it.
+                   (if (> arg 0)
+                       (1+ TeX-error-last-visited)
+                     (1- 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.
@@ -2330,7 +2333,11 @@ 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 (- arg (signum arg)))))
+               ;; Note: `signum' is a function from `cl' library, do not be
+               ;; tempted to use it.
+               (setq arg (if (> arg 0)
+                             (1- arg)
+                           (1+ arg)))))
            (if (< TeX-error-last-visited -1)
                (setq TeX-error-last-visited -1))
            (cond ((or (null item)

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

Summary of changes:
 tex-buf.el |   13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX