[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 48d5874a44aed7d916346ac545fc5385c4092aa3

[Ikumi Keita]

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  48d5874a44aed7d916346ac545fc5385c4092aa3 (commit)
       via  38d39a6fd2b779d6bc9ff1bd725ff3194d147a6e (commit)
       via  55512278d5b00874fdd045162c5b6451888c30f0 (commit)
      from  7030681599ac4f7c0bdf225d3ad708fcedec68c1 (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 48d5874a44aed7d916346ac545fc5385c4092aa3
Author: Ikumi Keita <address@hidden>
Date:   Tue Nov 27 04:02:35 2018 +0900

    Use `write-file-functions'
    
    * tex.el (VirTeX-common-initialization):
    * latex.el (BibTeX-auto-store):
    Use `write-file-functions' instead of obsolete
    `local-write-file-hooks' and `write-file-hooks'.  Also, use local hook.

diff --git a/latex.el b/latex.el
index 0165242..cbd3e89 100644
--- a/latex.el
+++ b/latex.el
@@ -1873,9 +1873,7 @@ The value is actually the tail of the list of options 
given to PACKAGE."
 It will setup BibTeX to store keys in an auto file."
   ;; We want this to be early in the list, so we do not
   ;; add it before we enter BibTeX mode the first time.
-  (if (boundp 'local-write-file-hooks)
-      (add-hook 'local-write-file-hooks 'TeX-safe-auto-write)
-    (add-hook 'write-file-hooks 'TeX-safe-auto-write))
+  (add-hook 'write-file-functions #'TeX-safe-auto-write nil t)
   (TeX-bibtex-set-BibTeX-dialect)
   (set (make-local-variable 'TeX-auto-update) 'BibTeX)
   (set (make-local-variable 'TeX-auto-untabify) nil)
diff --git a/tex.el b/tex.el
index f5493a6..044dd22 100644
--- a/tex.el
+++ b/tex.el
@@ -3796,10 +3796,8 @@ The algorithm is as follows:
   (funcall TeX-install-font-lock)
 
   ;; We want this to be early in the list, so we do not add it before
-  ;; we enter TeX mode  the first time.
-  (if (boundp 'local-write-file-hooks)
-      (add-hook 'local-write-file-hooks 'TeX-safe-auto-write)
-    (add-hook 'write-file-hooks 'TeX-safe-auto-write))
+  ;; we enter TeX mode the first time.
+  (add-hook 'write-file-functions #'TeX-safe-auto-write nil t)
   (set (make-local-variable 'TeX-auto-update) t)
 
   (define-key TeX-mode-map "\C-xng" 'TeX-narrow-to-group)

commit 38d39a6fd2b779d6bc9ff1bd725ff3194d147a6e
Author: Ikumi Keita <address@hidden>
Date:   Tue Nov 27 03:42:56 2018 +0900

    Remove compatibility face
    
    * tex-buf.el (TeX-error-description-error)
    (TeX-error-description-warning, TeX-error-description-tex-said):
    Remove compatibility alternatives in `defface'.

diff --git a/tex-buf.el b/tex-buf.el
index 3a6203b..12447d7 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1,6 +1,6 @@
 ;;; tex-buf.el --- External commands for AUCTeX.
 
-;; Copyright (C) 1991-1999, 2001-2017 Free Software Foundation, Inc.
+;; Copyright (C) 1991-1999, 2001-2018 Free Software Foundation, Inc.
 
 ;; Maintainer: address@hidden
 ;; Keywords: tex, wp
@@ -3357,46 +3357,40 @@ error."
   :group 'TeX-output)
 
 (defface TeX-error-description-error
-  (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))))
+  ;; 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
-  (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)))
+  ;; 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
-  (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))))
+  ;; 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

commit 55512278d5b00874fdd045162c5b6451888c30f0
Author: Ikumi Keita <address@hidden>
Date:   Tue Nov 27 03:36:44 2018 +0900

    Remove XEmacs compatibility code in tex-bar.el
    
    * tex-bar.el (TeX-bar-TeX-buttons, TeX-bar-LaTeX-buttons): Remove
    Emacs/XEmacs choice of buttons.

diff --git a/tex-bar.el b/tex-bar.el
index 0124f55..3098b4d 100644
--- a/tex-bar.el
+++ b/tex-bar.el
@@ -1,6 +1,7 @@
-;;; tex-bar.el --- toolbar icons on AUCTeX in GNU emacs and XEmacs
+;;; tex-bar.el --- toolbar icons on AUCTeX in GNU emacs
 
-;; Copyright (C) 2004-2008, 2012-2014, 2016 Free Software Foundation, Inc.
+;; Copyright (C) 2004-2008, 2012-2014, 2016, 2018
+;;                                  Free Software Foundation, Inc.
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -88,7 +89,7 @@ If there is no help, the empty string is returned."
   "List of buttons available in `tex-mode'.
 It should be a list in the same format of the BUTTONS parameter
 in function `toolbarx-install-toolbar', often a symbol that
-labels a button or Emacs/XEmacs choice of buttons.
+labels a button.
 
 Type `\\[TeX-bar-TeX-buttons]' for a list of available buttons.
 
@@ -118,9 +119,6 @@ alists, see variable `TeX-bar-TeX-all-button-alists'."
                    (const spell))
                    ;; (const latex-symbols-experimental)
               (repeat (choice (symbol :tag "Label")
-                              (vector :args ((symbol :tag "Label in Emacs ")
-                                             (symbol :tag "Label in XEmacs"))
-                                      :tag "Emacs/XEmacs choice")
                               (sexp :tag "General element"))))
   :group 'TeX-tool-bar)
 
@@ -232,7 +230,7 @@ format of the argument MEANING-ALIST in the mentioned 
function."
   "List of buttons available in `latex-mode'.
 It should be a list in the same format of the BUTTONS parameter
 in function `toolbarx-install-toolbar', often a symbol that
-labels a button or Emacs/XEmacs choice of buttons.
+labels a button.
 
 Type `\\[TeX-bar-LaTeX-buttons]' for a list of available buttons.
 
@@ -262,9 +260,6 @@ alists, see variable `TeX-bar-LaTeX-all-button-alists'."
                    (const spell)
                    (const latex-symbols-experimental))
               (repeat (choice (symbol :tag "Label")
-                              (vector :args ((symbol :tag "Label in Emacs ")
-                                             (symbol :tag "Label in XEmacs"))
-                                      :tag "Emacs/XEmacs choice")
                               (sexp :tag "General element"))))
   :group 'TeX-tool-bar)
 

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

Summary of changes:
 latex.el   |  4 +---
 tex-bar.el | 15 +++++----------
 tex-buf.el | 64 ++++++++++++++++++++++++++++----------------------------------
 tex.el     |  6 ++----
 4 files changed, 37 insertions(+), 52 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX