[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 840973cc6d7736849dfb7cdca9e7e87655bd6315

[Arash Esbati]

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  840973cc6d7736849dfb7cdca9e7e87655bd6315 (commit)
       via  e293844ce819557459ca3fc5cd50a0d5fd8f0585 (commit)
       via  243961c71b0dc4b62a380eba4d3017d65cd122a7 (commit)
      from  1b71eb6142fe5dad11f2b59d7cc7daa020bc0e1c (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 840973cc6d7736849dfb7cdca9e7e87655bd6315
Author: Arash Esbati <arash@gnu.org>
Date:   Fri Jul 10 13:47:52 2020 +0200

    ; Silence the compiler
    
    * style/kpfonts.el (LaTeX-kpfonts-mode-map)
    (LaTeX-kpfonts-mode-menu): defvar the variables which are
    generated later in the minor mode and via easy menu.

diff --git a/style/kpfonts.el b/style/kpfonts.el
index 2e8ffc3..4938416 100644
--- a/style/kpfonts.el
+++ b/style/kpfonts.el
@@ -1,9 +1,9 @@
 ;;; kpfonts.el --- AUCTeX style for `kpfonts.sty' version 3.31.
 
-;; Copyright (C) 2013, 2018 Free Software Foundation, Inc.
+;; Copyright (C) 2013, 2018, 2020 Free Software Foundation, Inc.
 
 ;; Maintainer: auctex-devel@gnu.org
-;; Author: Mosè Giordano <giordano.mose@libero.it>
+;; Author: Mosè Giordano <mose@gnu.org>
 ;; Keywords: tex
 
 ;; This file is part of AUCTeX.
@@ -33,6 +33,9 @@
 (declare-function font-latex-add-keywords
                  "font-latex"
                  (keywords class))
+;; These are generated by the minor mode or easy menu:
+(defvar LaTeX-kpfonts-mode-map)
+(defvar LaTeX-kpfonts-mode-menu)
 
 ;;; Kpfonts Minor Mode (heavily based on LaTeX Math Minor Mode code)
 

commit e293844ce819557459ca3fc5cd50a0d5fd8f0585
Author: Arash Esbati <arash@gnu.org>
Date:   Fri Jul 10 13:46:59 2020 +0200

    ; Silence the compiler
    
    * style/exam.el (LaTeX-exam-insert-item):
    * style/ifluatex.el (LaTeX-ifluatex-set-exit-mark): Use
    `with-no-warnings' around variables defined at run time.

diff --git a/style/exam.el b/style/exam.el
index 3ecc38d..a1ce1b5 100644
--- a/style/exam.el
+++ b/style/exam.el
@@ -51,20 +51,21 @@
 (defun LaTeX-exam-insert-item ()
   "Insert a new item in an environment from exam class.
 Item inserted depends on the environment."
-  (TeX-insert-macro
-   (cond ((string= environment "questions")
-          "question")
-         ((string= environment "parts")
-          "part")
-         ((string= environment "subparts")
-          "subpart")
-         ((string= environment "subsubparts")
-          "subsubpart")
-        ((member environment '("choices" "oneparchoices"
-                               "checkboxes" "oneparcheckboxes"))
-         "choice")
-         ;; Fallback
-         (t "item"))))
+  (with-no-warnings
+    (TeX-insert-macro
+     (cond ((string= environment "questions")
+            "question")
+           ((string= environment "parts")
+            "part")
+           ((string= environment "subparts")
+            "subpart")
+           ((string= environment "subsubparts")
+            "subsubpart")
+          ((member environment '("choices" "oneparchoices"
+                                 "checkboxes" "oneparcheckboxes"))
+           "choice")
+           ;; Fallback
+           (t "item")))))
 
 (defun LaTeX-exam-insert-label (_optional &optional name type)
   "Indent the line and query/insert a label incl. the \"\\label\" macro.
diff --git a/style/ifluatex.el b/style/ifluatex.el
index 20d3c8d..736e5ca 100644
--- a/style/ifluatex.el
+++ b/style/ifluatex.el
@@ -1,6 +1,6 @@
 ;;; ifluatex.el --- AUCTeX style for `ifluatex.sty' version 1.3.
 
-;; Copyright (C) 2014, 2016, 2018 Free Software Foundation, Inc.
+;; Copyright (C) 2014, 2016, 2018, 2020 Free Software Foundation, Inc.
 
 ;; Author: Davide G. M. Salvetti <salve@debian.org>
 ;; Maintainer: auctex-devel@gnu.org
@@ -36,7 +36,8 @@
 
 (defun LaTeX-ifluatex-set-exit-mark (_optional)
   "Discard OPTIONAL and set exit-mark to current point."
-  (set-marker exit-mark (point)))
+  (with-no-warnings
+    (set-marker exit-mark (point))))
 
 (TeX-add-style-hook
     "ifluatex"

commit 243961c71b0dc4b62a380eba4d3017d65cd122a7
Author: Arash Esbati <arash@gnu.org>
Date:   Fri Jul 10 13:45:07 2020 +0200

    ; Silence the compiler
    
    * style/dinbrief.el ("dinbrief"): Remove unnecessary `function'
    and ": " from query strings.
    (LaTeX-dinbrief-style, LaTeX-dinbrief-env-recipient): Check if
    `indent-relative-first-indent-point' is defined and use it,
    otherwise stick with `indent-relative-maybe' which is obsolete
    since 26.1.
    Minor indentation fixes.
    
    * style/letter.el ("letter"): Remove unnecessary ": " from query
    strings.
    (LaTeX-env-recipient): Check if
    `indent-relative-first-indent-point' is defined and use it,
    otherwise stick with `indent-relative-maybe' which is obsolete
    since 26.1.

diff --git a/style/dinbrief.el b/style/dinbrief.el
index 4707654..6375afd 100644
--- a/style/dinbrief.el
+++ b/style/dinbrief.el
@@ -1,6 +1,6 @@
 ;;; dinbrief.el --- Special code for LaTeX-Style dinbrief.
 
-;; Copyright (C) 1994, 2013, 2014, 2018, 2020  Free Software Foundation, Inc.
+;; Copyright (C) 1994, 2013, 2014, 2018, 2020 Free Software Foundation, Inc.
 
 ;; Author: Werner Fink <werner@suse.de>
 ;; Maintainer: auctex-devel@gnu.org
@@ -33,36 +33,36 @@
 
 (require 'tex)
 
-(TeX-add-style-hook "dinbrief"
- (function
-  (lambda ()
-    (add-hook 'LaTeX-document-style-hook
-     'LaTeX-dinbrief-style)
-    (LaTeX-add-environments
-     '("letter" LaTeX-dinbrief-env-recipient)
-     "dinquote")
-    (TeX-add-symbols
-     '("address" "Absender: ")
-     '("postremark" "Postvermerk: ")
-     '("date" "Datum: ")
-     '("subject" "Betreff: ")
-     '("handling" "Behandlungsvermerk: ")
-     '("cc" "Verteiler: ")
-     '("place" "Heutiger Ort: ")
-     "makelabels"
-     "nowindowrules"
-     "windowrules"
-     "nowindowtics"
-     "windowtics"
-     "disabledraftstandard"
-     "enabledraftstandard"
-     "centeraddress"
-     "normaladdress"
-     '("encl" "Anlagen: ")
-     '("backaddress" "Retouradresse: ")
-     '("signature" "Unterschrift: ")
-     '("opening" "Anrede: ")
-     '("closing" "Schluss: "))))
+(TeX-add-style-hook
+ "dinbrief"
+ (lambda ()
+   (add-hook 'LaTeX-document-style-hook
+            'LaTeX-dinbrief-style)
+   (LaTeX-add-environments
+    '("letter" LaTeX-dinbrief-env-recipient)
+    "dinquote")
+   (TeX-add-symbols
+    '("address" "Absender")
+    '("postremark" "Postvermerk")
+    '("date" "Datum")
+    '("subject" "Betreff")
+    '("handling" "Behandlungsvermerk")
+    '("cc" "Verteiler")
+    '("place" "Heutiger Ort")
+    "makelabels"
+    "nowindowrules"
+    "windowrules"
+    "nowindowtics"
+    "windowtics"
+    "disabledraftstandard"
+    "enabledraftstandard"
+    "centeraddress"
+    "normaladdress"
+    '("encl" "Anlagen: ")
+    '("backaddress" "Retouradresse")
+    '("signature" "Unterschrift")
+    '("opening" "Anrede")
+    '("closing" "Schluss")))
  LaTeX-dialect)
 
 (defmacro LaTeX-dinbrief-insert (&rest args)
@@ -72,41 +72,45 @@
 
 (defun LaTeX-dinbrief-style ()
   "Insert some useful packages for writing german letters."
-  (save-excursion
-    (goto-char (point-min)) ; insert before \begin{document}
-    (if (re-search-forward ".begin.document." (point-max) t)
-        (beginning-of-line 1))
-    (open-line 2)
-    (indent-relative-maybe)
-    (LaTeX-dinbrief-insert TeX-esc "usepackage"
-                          LaTeX-optop "latin1,utf8" LaTeX-optcl
-                          TeX-grop "inputenc" TeX-grcl)
-    (newline-and-indent)
-    (LaTeX-dinbrief-insert TeX-esc "usepackage"
-                          LaTeX-optop "T1" LaTeX-optcl
-                          TeX-grop "fontenc" TeX-grcl)
-    (newline-and-indent)
-    (LaTeX-dinbrief-insert TeX-esc "usepackage"
-                          TeX-grop "ngerman" TeX-grcl)
+  (let ((func (if (fboundp 'indent-relative-first-indent-point)
+                 'indent-relative-first-indent-point
+               'indent-relative-maybe)))
+    (save-excursion
+      (goto-char (point-min)) ; insert before \begin{document}
+      (if (re-search-forward ".begin.document." (point-max) t)
+          (beginning-of-line 1))
+      (open-line 2)
+      (funcall func)
+      (LaTeX-dinbrief-insert TeX-esc "usepackage"
+                            LaTeX-optop "latin1,utf8" LaTeX-optcl
+                            TeX-grop "inputenc" TeX-grcl)
+      (newline-and-indent)
+      (LaTeX-dinbrief-insert TeX-esc "usepackage"
+                            LaTeX-optop "T1" LaTeX-optcl
+                            TeX-grop "fontenc" TeX-grcl)
+      (funcall func)
+      (LaTeX-dinbrief-insert TeX-esc "usepackage"
+                            TeX-grop "ngerman" TeX-grcl))
     (TeX-run-style-hooks "inputenc" "fontenc" "ngerman")))
 
 (defun LaTeX-dinbrief-env-recipient (environment)
   "Insert ENVIRONMENT and prompt for recipient and address."
-  (let (
-       (sender (LaTeX-dinbrief-sender))
+  (let ((sender (LaTeX-dinbrief-sender))
        (recipient (TeX-read-string "Empfänger: "))
        (address (LaTeX-dinbrief-recipient))
        (date (TeX-read-string "Datum: " (LaTeX-dinbrief-today)))
        (postremark (TeX-read-string "Postvermerk: "))
-       (fenster (TeX-read-string "Fenster \(ja/nein\): "))
+       (fenster (TeX-read-string "Fenster (ja/nein): "))
        (vermerk (TeX-read-string "Behandlungsvermerk: "))
        (verteil (TeX-read-string "Verteiler: "))
        (betreff (TeX-read-string "Betreff: "))
        (opening (TeX-read-string "Anrede: "))
        (closing (TeX-read-string "Schluss: "))
        (signature (TeX-read-string "Unterschrift: "))
-       (anlage (TeX-read-string "Anlagen: ")))
-
+       (anlage (TeX-read-string "Anlagen: "))
+       (func (if (fboundp 'indent-relative-first-indent-point)
+                 'indent-relative-first-indent-point
+               'indent-relative-maybe)))
     (if (string= fenster "ja")
        (progn
          (LaTeX-dinbrief-insert TeX-esc "enabledraftstandard")
@@ -119,11 +123,11 @@
          (newline-and-indent)
          (let ((retouradr (TeX-read-string "Retouradresse: " sender)))
            (newline-and-indent)
-         (if (not (zerop (length retouradr)))
-             (progn
-               (if mark-active (deactivate-mark))
-               (LaTeX-dinbrief-insert TeX-esc "backaddress" TeX-grop retouradr 
TeX-grcl)
-               (newline-and-indent)))))
+           (if (not (zerop (length retouradr)))
+               (progn
+                 (if mark-active (deactivate-mark))
+                 (LaTeX-dinbrief-insert TeX-esc "backaddress" TeX-grop 
retouradr TeX-grcl)
+                 (newline-and-indent)))))
       (LaTeX-dinbrief-insert TeX-esc "enabledraftstandard")
       (newline-and-indent)
       (LaTeX-dinbrief-insert TeX-esc "centeraddress")
@@ -131,7 +135,7 @@
       (LaTeX-dinbrief-insert TeX-esc "nowindowrules")
       (newline-and-indent)
       (LaTeX-dinbrief-insert TeX-esc "windowtics"))
-      (newline-and-indent)
+    (newline-and-indent)
     (if (not (zerop (length signature)))
        (progn
          (LaTeX-dinbrief-insert TeX-esc "signature" TeX-grop signature 
TeX-grcl)
@@ -187,21 +191,21 @@
          (LaTeX-dinbrief-insert TeX-esc "encl" TeX-grop anlage TeX-grcl)
          (newline-and-indent)))
     (LaTeX-dinbrief-insert TeX-esc "opening"
-           TeX-grop
-           (if (zerop (length opening))
-               (concat TeX-esc " ")
-             opening)
-           TeX-grcl "\n")
+                          TeX-grop
+                          (if (zerop (length opening))
+                              (concat TeX-esc " ")
+                            opening)
+                          TeX-grcl "\n")
 
-    (indent-relative-maybe)
+    (funcall func)
     (save-excursion
       (LaTeX-dinbrief-insert "\n" TeX-esc "closing"
-             TeX-grop
-             (if (zerop (length closing))
-                 (concat TeX-esc " ")
-               closing)
-             TeX-grcl "\n")
-      (indent-relative-maybe))))
+                            TeX-grop
+                            (if (zerop (length closing))
+                                (concat TeX-esc " ")
+                              closing)
+                            TeX-grcl "\n")
+      (funcall func))))
 
 (defun LaTeX-dinbrief-sender ()
   "Read and write the senders address."
diff --git a/style/letter.el b/style/letter.el
index 5757b06..e2cc8be 100644
--- a/style/letter.el
+++ b/style/letter.el
@@ -1,6 +1,6 @@
 ;;; letter.el - Special code for letter style.
 
-;; Copyright (C) 1993, 2012, 2013, 2014, 2018  Free Software Foundation, Inc.
+;; Copyright (C) 1993, 2012, 2013, 2014, 2018, 2020 Free Software Foundation, 
Inc.
 
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; Maintainer: auctex-devel@gnu.org
@@ -49,11 +49,11 @@
    (LaTeX-add-pagestyles "headings" "firstpage")
    (setq LaTeX-default-document-environment "letter")
    (TeX-add-symbols
-    '("name" "Sender: ")
-    '("address" "Sender address: ")
-    '("signature" "Signature: ")
-    '("opening" "Opening: ")
-    '("closing" "Closing: ")
+    '("name" "Sender")
+    '("address" "Sender address")
+    '("signature" "Signature")
+    '("opening" "Opening")
+    '("closing" "Closing")
     "location"
     "telephone"
     "makelabels"
@@ -92,13 +92,16 @@
   "Insert ENVIRONMENT and prompt for recipient and address."
   (let ((sender (TeX-read-string "Sender: " (user-full-name)))
        (sender-address (TeX-read-string "Sender address: "
-                                    LaTeX-letter-sender-address))
+                                        LaTeX-letter-sender-address))
        (recipient (TeX-read-string "Recipient: "))
        (address (TeX-read-string "Recipient address: "))
        (signature (TeX-read-string "Signature: "))
        (opening (TeX-read-string "Opening: "))
        (closing (TeX-read-string "Closing: "))
-       (date (TeX-read-string "Date: " (LaTeX-today))))
+       (date (TeX-read-string "Date: " (LaTeX-today)))
+       (func (if (fboundp 'indent-relative-first-indent-point)
+                 'indent-relative-first-indent-point
+               'indent-relative-maybe)))
 
     (insert TeX-esc "name" TeX-grop sender TeX-grcl)
     (newline-and-indent)
@@ -148,7 +151,7 @@
              opening)
            TeX-grcl "\n")
 
-    (indent-relative-maybe)
+    (funcall func)
     (save-excursion
       (insert "\n" TeX-esc "closing"
              TeX-grop
@@ -156,7 +159,7 @@
                  (concat TeX-esc " ")
                closing)
              TeX-grcl "\n")
-      (indent-relative-maybe))))
+      (funcall func))))
 
 (defun LaTeX-today nil
   "Return a string representing todays date according to flavor."

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

Summary of changes:
 style/dinbrief.el | 144 ++++++++++++++++++++++++++++--------------------------
 style/exam.el     |  29 +++++------
 style/ifluatex.el |   5 +-
 style/kpfonts.el  |   7 ++-
 style/letter.el   |  23 +++++----
 5 files changed, 110 insertions(+), 98 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX