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

[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  a8bbd1fb14eeb3d75856d8140364b59a1bf35a87 (commit)
       via  92c090dae23076ccbbbb4f017ad6fedde79a21fa (commit)
       via  b62181c0ef7c9b80c16618be97d17c59d644683a (commit)
       via  400b0027a5cd3bd6c01f28ff97d55d9de9225863 (commit)
       via  b141ded9327bedf7aa7e72d575f31ec020123975 (commit)
       via  3b3c224493de2c5b5a36d30da6d5f7daa0002146 (commit)
       via  4776fd0327e44038c895b9ba35959f7f7f4e9fb5 (commit)
      from  a30db7c0409aa7d15e87633ff9d2b73430c4d40c (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 a8bbd1fb14eeb3d75856d8140364b59a1bf35a87
Author: Ikumi Keita <address@hidden>
Date:   Thu May 9 18:47:11 2019 +0900

    ; Fix document
    
    * doc/auctex.texi (Deactivating defaults of built-in keyword classes):
    In lisp code example, use `assoc-string' instead of `TeX-assoc-string',
    which no longer exists.

diff --git a/doc/auctex.texi b/doc/auctex.texi
index 8843fa9..693fdf6 100644
--- a/doc/auctex.texi
+++ b/doc/auctex.texi
@@ -2163,7 +2163,7 @@ following stanza into your init file:
 (eval-after-load "font-latex"
   '(setq-default
     font-latex-match-reference-keywords-local
-    (remove (TeX-assoc-string "footnote"
+    (remove (assoc-string "footnote"
             font-latex-match-reference-keywords-local)
                 font-latex-match-reference-keywords-local)))
 @end lisp

commit 92c090dae23076ccbbbb4f017ad6fedde79a21fa
Author: Ikumi Keita <address@hidden>
Date:   Tue May 7 21:14:53 2019 +0900

    Fix treatment of class and package options
    
    * preview.el.in (preview-auctex-font-size): Consult
    `LaTeX-provided-{class,package}-options' instead of
    `(TeX-style-list)'.  This function has been accidentally disabled
    since AUCTeX began not to include the class and package options into
    the styles.  Similar problem with bug#25563.
    * latex.el (LaTeX-match-class-option): Update doc string because the
    above change depends on its implicit behavior.

diff --git a/latex.el b/latex.el
index f5f186d..064199d 100644
--- a/latex.el
+++ b/latex.el
@@ -1701,7 +1701,8 @@ The value is actually the tail of the list of options 
given to CLASS."
   (member option (cdr (assoc class LaTeX-provided-class-options))))
 
 (defun LaTeX-match-class-option (regexp)
-  "Check if a documentclass option matching REGEXP is active."
+  "Check if a documentclass option matching REGEXP is active.
+Return first found class option matching REGEXP, or nil if not found."
   (TeX-member regexp (apply #'append
                            (mapcar #'cdr LaTeX-provided-class-options))
              'string-match))
diff --git a/preview.el.in b/preview.el.in
index 3134232..30bf45b 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -1363,11 +1363,16 @@ This is for matching screen font size and previews."
 If packages, classes or styles were called with an option
 like 10pt, size is taken from the first such option if you
 had let your document be parsed by AucTeX."
-  (catch 'return (dolist (option (TeX-style-list))
-                  (if (string-match "\\`\\([0-9]+\\)pt\\'" option)
-                      (throw 'return
-                             (string-to-number
-                              (match-string 1 option)))))))
+  (let* ((regexp "\\`\\([0-9]+\\)pt\\'")
+        (option
+         (or
+          (LaTeX-match-class-option regexp)
+          ;; We don't have `LaTeX-match-package-option'.
+          (TeX-member regexp
+                      (apply #'append
+                             (mapcar #'cdr LaTeX-provided-package-options))
+                      #'string-match))))
+    (if option (string-to-number (match-string 1 option)))))
 
 (defsubst preview-document-pt ()
   "Calculate the default font size of document."

commit b62181c0ef7c9b80c16618be97d17c59d644683a
Author: Ikumi Keita <address@hidden>
Date:   Tue May 7 17:37:22 2019 +0900

    ; Remove unused code fragment
    
    * tex.el (defvar): Remove unused code fragment once introduced to
    silence byte compiler.

diff --git a/tex.el b/tex.el
index f5e8801..684b6f7 100644
--- a/tex.el
+++ b/tex.el
@@ -1177,8 +1177,6 @@ focus."
   :group 'TeX-view
   :type 'boolean)
 
-(defvar url-unreserved-chars)
-
 (defun TeX-evince-sync-view-1 (de app)
   "Focus the focused page/paragraph in Evince with the position
 of point in emacs by using Evince's DBUS API.  Used by default

commit 400b0027a5cd3bd6c01f28ff97d55d9de9225863
Author: Ikumi Keita <address@hidden>
Date:   Tue May 7 16:21:37 2019 +0900

    Remove obsolete codes
    
    * preview.el.in (preview-mouse-open-eps): Remove xemacs compatibility
    code.
    Don't use obsolete variable `default-major-mode'.

diff --git a/preview.el.in b/preview.el.in
index 8748c8f..3134232 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -1149,25 +1149,22 @@ for the file extension."
 (defun preview-mouse-open-eps (file &optional position)
   "Display eps FILE in a view buffer on click.
 Place point at POSITION, else beginning of file."
-  (let ((default-major-mode
+  (let ((default-mode
           ;; FIXME: Yuck!  Just arrange for the file name to have the right
           ;; extension instead!
-         (or
-          (assoc-default "x.ps" auto-mode-alist #'string-match)
-          (default-value 'major-mode)))
+         (assoc-default "x.ps" auto-mode-alist #'string-match))
        (buff (get-file-buffer file)))
     (save-excursion
       (if buff
          (pop-to-buffer buff)
        (view-file-other-window file))
+      (if (and (eq major-mode (default-value 'major-mode))
+              default-mode)
+         (funcall default-mode))
       (goto-char (or position (point-min)))
-      (if (eq major-mode 'ps-mode)          ; Bundled with GNU Emacs
-         (message "%s" (substitute-command-keys "\
+      (message "%s" (substitute-command-keys "\
 Try \\[ps-run-start] \\[ps-run-buffer] and \
-\\<ps-run-mode-map>\\[ps-run-mouse-goto-error] on error offset." )))
-      (if (eq major-mode 'postscript-mode) ; Bundled with XEmacs, limited
-         (message "%s" (substitute-command-keys "\
-Try \\[ps-shell] and \\[ps-execute-buffer]."))))))
+\\<ps-run-mode-map>\\[ps-run-mouse-goto-error] on error offset.")))))
 
 (defun preview-gs-flag-error (ov err)
   "Make an eps error flag in overlay OV for ERR string."

commit b141ded9327bedf7aa7e72d575f31ec020123975
Author: Ikumi Keita <address@hidden>
Date:   Tue May 7 13:54:54 2019 +0900

    Remove compatibility code for xemacs
    
    * prv-emacs.el (preview-compatibility-macros): Remove.
    * preview.el.in (eval-when-compile,makunbound): Remove useless
    codes.

diff --git a/preview.el.in b/preview.el.in
index 4c40534..8748c8f 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -3634,14 +3634,5 @@ If not a regular release, the date of the last change.")
 file exhibiting the problem might help."
      )))
 
-(eval-when-compile
-  (when (boundp 'preview-compatibility-macros)
-    (dolist (elt preview-compatibility-macros)
-      (if (consp elt)
-         (fset (car elt) (cdr elt))
-       (fmakunbound elt)))))
-
-(makunbound 'preview-compatibility-macros)
-
 (provide 'preview)
 ;;; preview.el ends here
diff --git a/prv-emacs.el b/prv-emacs.el
index 0afef66..0ccce7b 100644
--- a/prv-emacs.el
+++ b/prv-emacs.el
@@ -30,9 +30,6 @@
 (require 'tex)
 (require 'latex)
 
-(defvar preview-compatibility-macros nil
-  "List of macros only present when compiling/loading.")
-
 (defcustom preview-transparent-color '(highlight :background)
   "Color to appear transparent in previews.
 Set this to something unusual when using `preview-transparent-border',

commit 3b3c224493de2c5b5a36d30da6d5f7daa0002146
Author: Ikumi Keita <address@hidden>
Date:   Tue May 7 13:51:34 2019 +0900

    Remove compatibility code for xemacs
    
    * prv-emacs.el (preview-mark-active): Remove.
    (): Update Copyright year.
    * preview.el.in (LaTeX-preview-setup): Remove the above macro.
    (): Update Copyright year.

diff --git a/preview.el.in b/preview.el.in
index 9dd1cef..4c40534 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -1,7 +1,7 @@
 ;;; preview.el --- embed preview LaTeX images in source buffer
 
 ;; Copyright (C) 2001-2006, 2010-2015,
-;;               2017, 2018  Free Software Foundation, Inc.
+;;               2017-2019  Free Software Foundation, Inc.
 
 ;; Author: David Kastrup
 ;; Keywords: tex, wp, convenience
@@ -2497,14 +2497,14 @@ to add the preview functionality."
        ["(or toggle) at point" preview-at-point]
        ["for environment" preview-environment]
        ["for section" preview-section]
-       ["for region" preview-region (preview-mark-active)]
+       ["for region" preview-region mark-active]
        ["for buffer" preview-buffer]
        ["for document" preview-document]
        "---"
        "Remove previews"
        ["at point" preview-clearout-at-point]
        ["from section" preview-clearout-section]
-       ["from region" preview-clearout (preview-mark-active)]
+       ["from region" preview-clearout mark-active]
        ["from buffer" preview-clearout-buffer]
        ["from document" preview-clearout-document]
        "---"
diff --git a/prv-emacs.el b/prv-emacs.el
index fe0f8f9..0afef66 100644
--- a/prv-emacs.el
+++ b/prv-emacs.el
@@ -1,6 +1,6 @@
 ;;; prv-emacs.el --- GNU Emacs specific code for preview.el
 
-;; Copyright (C) 2001-2005, 2018  Free Software Foundation, Inc.
+;; Copyright (C) 2001-2005, 2018, 2019  Free Software Foundation, Inc.
 
 ;; Author: David Kastrup
 ;; Keywords: convenience, tex, wp
@@ -568,10 +568,6 @@ The fourth value is the transparent border thickness."
       (setq mask nil))
     (vector bg fg mask preview-transparent-border)))
 
-(defmacro preview-mark-active ()
-  "Return t if the mark is active."
-  'mark-active)
-
 (defun preview-import-image (image)
   "Convert the printable IMAGE rendition back to an image."
   (cond ((stringp image)

commit 4776fd0327e44038c895b9ba35959f7f7f4e9fb5
Author: Ikumi Keita <address@hidden>
Date:   Tue May 7 13:47:41 2019 +0900

    ; Remove compatibility code for older emacsen
    
    * multi-prompt.el (multi-prompt): Remove fallback for older emacsen.
    (): Update copyright year.

diff --git a/multi-prompt.el b/multi-prompt.el
index 8337ebc..f7632be 100644
--- a/multi-prompt.el
+++ b/multi-prompt.el
@@ -1,6 +1,7 @@
 ;;; multi-prompt.el --- Completing read of multiple strings
 
-;; Copyright (C) 1996, 1997, 2000, 2009, 2014 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 1997, 2000, 2009, 2014, 2019 Free Software
+;; Foundation, Inc.
 
 ;; Author: Per Abrahamsen <address@hidden>
 ;; Maintainer: address@hidden
@@ -52,10 +53,7 @@ are the arguments to `completing-read'.  See that."
                     minibuffer-local-must-match-map
                   minibuffer-local-completion-map))
        (new-map (make-sparse-keymap)))
-    (if (fboundp 'set-keymap-parent)
-       ;; `set-keymap-parent' was introduced in Emacs 19.32.
-       (set-keymap-parent new-map old-map)
-      (setq new-map (copy-keymap old-map)))
+    (set-keymap-parent new-map old-map)
     (define-key new-map separator (if require-match
                                      'multi-prompt-next-must-match
                                    'multi-prompt-next))

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

Summary of changes:
 doc/auctex.texi |  2 +-
 latex.el        |  3 ++-
 multi-prompt.el |  8 +++-----
 preview.el.in   | 47 ++++++++++++++++++++---------------------------
 prv-emacs.el    |  9 +--------
 tex.el          |  2 --
 6 files changed, 27 insertions(+), 44 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX