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 a34b0fe9aa2d3a4d6b199b6d5df11f3b01c8e18d (commit) from bf5ac536ba17424dfbd87effb23730b0c75d4ed1 (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 a34b0fe9aa2d3a4d6b199b6d5df11f3b01c8e18d Author: Mosè Giordano <m...@gnu.org> Date: Mon Jul 14 22:16:42 2014 +0200 Fix other runtime issues in XEmacs and Emacs 21. * tex-buf.el (TeX-next-error): Do not pass `reparse' argument to `next-error' in XEmacs as it is not supported. (TeX-error-overview-frame, TeX-error-overview-buffer-name): Move before their first use in order to prevent a runtime error in XEmacs and GNU Emacs 21. Reported by Ikumi Keita. (TeX-parse-TeX): Manually set `item' to nil when `TeX-error-last-visited' is negative. (TeX-error-description-error, TeX-error-description-warning) (TeX-error-description-tex-said): Set to nil in XEmacs and GNU Emacs 21. Reported by Ikumi Keita. diff --git a/ChangeLog b/ChangeLog index 4aeeee5..4162bec 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,16 @@ +2014-07-14 Mosè Giordano <m...@gnu.org> + + * tex-buf.el (TeX-next-error): Do not pass `reparse' argument to + `next-error' in XEmacs as it is not supported. + (TeX-error-overview-frame, TeX-error-overview-buffer-name): Move + before their first use in order to prevent a runtime error in + XEmacs and GNU Emacs 21. Reported by Ikumi Keita. + (TeX-parse-TeX): Manually set `item' to nil when + `TeX-error-last-visited' is negative. + (TeX-error-description-error, TeX-error-description-warning) + (TeX-error-description-tex-said): Set to nil in XEmacs and GNU + Emacs 21. Reported by Ikumi Keita. + 2014-07-13 Mosè Giordano <m...@gnu.org> * latex.el (TeX-latex-mode): Add second argument to diff --git a/tex-buf.el b/tex-buf.el index 1d3c605..722afed 100644 --- a/tex-buf.el +++ b/tex-buf.el @@ -292,7 +292,9 @@ message buffer and start at the first error." (if (or (null (TeX-active-buffer)) (eq 'compilation-mode (with-current-buffer TeX-command-buffer major-mode))) - (next-error arg reparse) + (if (featurep 'xemacs) + (next-error arg) + (next-error arg reparse)) ;; Force reparsing when the function is called with a universal-argument. (if (consp arg) (setq reparse t arg nil)) @@ -315,7 +317,7 @@ This works only with TeX commands and if the (let ((parse-function (TeX-get-parse-function))) (if (and TeX-parse-all-errors (equal parse-function 'TeX-parse-TeX)) - ;; When `TeX-parse-all-errors' and the parsing function is + ;; When `TeX-parse-all-errors' is non-nil and the parsing function is ;; `TeX-parse-TeX' we can move backward in the errors. (TeX-parse-TeX (- arg) nil) ;; XXX: moving backward in the errors hasn't yet been implemented for @@ -324,6 +326,12 @@ This works only with TeX commands and if the ;;; Command Query +(defvar TeX-error-overview-frame nil + "The frame of the error overview.") + +(defconst TeX-error-overview-buffer-name "*TeX errors*" + "Name of the buffer in which to show error list.") + (defun TeX-command (name file &optional override-confirm) "Run command NAME on the file returned by calling FILE. @@ -1547,7 +1555,10 @@ already in an Emacs buffer) and the cursor is placed at the error." (progn (setq max-index (length TeX-error-list) TeX-error-last-visited (+ (or arg 1) TeX-error-last-visited) - item (nth TeX-error-last-visited TeX-error-list)) + item (if (natnump TeX-error-last-visited) + (nth TeX-error-last-visited TeX-error-list) + ;; XEmacs doesn't support `nth' with a negative index. + nil)) (if (< TeX-error-last-visited -1) (setq TeX-error-last-visited -1)) (cond ((or (null item) @@ -1895,40 +1906,46 @@ warning." :group 'TeX-output) (defface TeX-error-description-error - ;; This is the same as `error' face in latest GNU Emacs versions. - '((((class color) (min-colors 88) (background light)) - :foreground "Red1" :weight bold) - (((class color) (min-colors 88) (background dark)) - :foreground "Pink" :weight bold) - (((class color) (min-colors 16) (background light)) - :foreground "Red1" :weight bold) - (((class color) (min-colors 16) (background dark)) - :foreground "Pink" :weight bold) - (((class color) (min-colors 8)) - :foreground "red" :weight bold) - (t (:inverse-video t :weight bold))) + (if (< emacs-major-version 22) + nil + ;; This is the same as `error' face in latest GNU Emacs versions. + '((((class color) (min-colors 88) (background light)) + :foreground "Red1" :weight bold) + (((class color) (min-colors 88) (background dark)) + :foreground "Pink" :weight bold) + (((class color) (min-colors 16) (background light)) + :foreground "Red1" :weight bold) + (((class color) (min-colors 16) (background dark)) + :foreground "Pink" :weight bold) + (((class color) (min-colors 8)) + :foreground "red" :weight bold) + (t (:inverse-video t :weight bold)))) "Face for \"Error\" string in error descriptions.") (defface TeX-error-description-warning - ;; This is the same as `warning' face in latest GNU Emacs versions. - '((((class color) (min-colors 16)) :foreground "DarkOrange" :weight bold) - (((class color)) :foreground "yellow" :weight bold)) + (if (< emacs-major-version 22) + nil + ;; This is the same as `warning' face in latest GNU Emacs versions. + '((((class color) (min-colors 16)) :foreground "DarkOrange" :weight bold) + (((class color)) :foreground "yellow" :weight bold))) "Face for \"Warning\" string in error descriptions.") (defface TeX-error-description-tex-said - ;; This is the same as `font-lock-function-name-face' face in latest GNU Emacs - ;; versions. - '((((class color) (min-colors 88) (background light)) - :foreground "Blue1") - (((class color) (min-colors 88) (background dark)) - :foreground "LightSkyBlue") - (((class color) (min-colors 16) (background light)) - :foreground "Blue") - (((class color) (min-colors 16) (background dark)) - :foreground "LightSkyBlue") - (((class color) (min-colors 8)) - :foreground "blue" :weight bold) - (t (:inverse-video t :weight bold))) + (if (< emacs-major-version 22) + nil + ;; This is the same as `font-lock-function-name-face' face in latest GNU + ;; Emacs versions. + '((((class color) (min-colors 88) (background light)) + :foreground "Blue1") + (((class color) (min-colors 88) (background dark)) + :foreground "LightSkyBlue") + (((class color) (min-colors 16) (background light)) + :foreground "Blue") + (((class color) (min-colors 16) (background dark)) + :foreground "LightSkyBlue") + (((class color) (min-colors 8)) + :foreground "blue" :weight bold) + (t (:inverse-video t :weight bold)))) "Face for \"TeX said\" string in error descriptions.") (defface TeX-error-description-help @@ -2428,9 +2445,6 @@ error." (defvar TeX-error-overview-orig-window nil "Window from which the error overview has been launched.") -(defvar TeX-error-overview-frame nil - "The frame of the error overview.") - (defcustom TeX-error-overview-setup nil "The frame setup of the error overview. @@ -2605,9 +2619,6 @@ forward, if negative)." (tabulated-list-init-header) (tabulated-list-print)) -(defconst TeX-error-overview-buffer-name "*TeX errors*" - "Name of the buffer in which to show error list.") - (defcustom TeX-error-overview-frame-parameters '((name . "TeX errors") (title . "TeX errors") ----------------------------------------------------------------------- Summary of changes: ChangeLog | 13 +++++++++ tex-buf.el | 85 ++++++++++++++++++++++++++++++++++-------------------------- 2 files changed, 61 insertions(+), 37 deletions(-) hooks/post-receive -- GNU AUCTeX
_______________________________________________ auctex-diffs mailing list auctex-di...@gnu.org https://lists.gnu.org/mailman/listinfo/auctex-diffs