[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 0692e5139a1f3a2b7d341332cc02d481faa4dab2

[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  0692e5139a1f3a2b7d341332cc02d481faa4dab2 (commit)
      from  f04a508f6a85642524ad1a2279f2bfe2bded1db7 (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 0692e5139a1f3a2b7d341332cc02d481faa4dab2
Author: Arash Esbati <arash@gnu.org>
Date:   Fri Aug 7 23:31:31 2020 +0200

    ; Silence the compiler
    
    * latex.el: defvar the variables `outline-heading-alist',
    `TeX-auto-file' and `LaTeX-section-list-changed'.
    (LaTeX-section-heading, LaTeX-section-title, LaTeX-section-toc)
    (LaTeX-section-section, LaTeX-section-label): Use
    `with-no-warnings' in order to silence the compiler for
    dynamically scoped variables `title', `name', `level' and `toc'.

diff --git a/latex.el b/latex.el
index a092a01..2e9e848 100644
--- a/latex.el
+++ b/latex.el
@@ -45,6 +45,11 @@
 (declare-function turn-off-filladapt-mode "ext:filladapt"
                  nil)
 
+;; Silence the compiler for variables:
+(defvar outline-heading-alist)
+(defvar TeX-auto-file)
+(defvar LaTeX-section-list-changed)
+
 ;;; Syntax
 
 (defvar LaTeX-optop "["
@@ -121,12 +126,8 @@ This depends on `LaTeX-insert-into-comments'."
 
 ;;; Sections
 
-;; Declare dynamically scoped vars.
-(defvar title)
-(defvar name)
-(defvar level)
+;; Declare dynamically scoped var.
 (defvar done-mark)
-(defvar toc)
 
 (defun LaTeX-section (arg)
   "Insert a template for a LaTeX section.
@@ -449,32 +450,35 @@ no label is inserted."
   "Hook to prompt for LaTeX section name.
 Insert this hook into `LaTeX-section-hook' to allow the user to change
 the name of the sectioning command inserted with `\\[LaTeX-section]'."
-  (let ((string (completing-read
-                (concat "Level (default " name "): ")
-                LaTeX-section-list
-                nil nil nil nil name)))
-    ;; Update name
-    (if (not (zerop (length string)))
-       (setq name string))
-    ;; Update level
-    (setq level (LaTeX-section-level name))))
+  (with-no-warnings
+    (let ((string (completing-read
+                  (concat "Level (default " name "): ")
+                  LaTeX-section-list
+                  nil nil nil nil name)))
+      ;; Update name
+      (if (not (zerop (length string)))
+         (setq name string))
+      ;; Update level
+      (setq level (LaTeX-section-level name)))))
 
 (defun LaTeX-section-title ()
   "Hook to prompt for LaTeX section title.
 Insert this hook into `LaTeX-section-hook' to allow the user to change
 the title of the section inserted with `\\[LaTeX-section]."
-  (setq title (TeX-read-string "Title: " title))
-  (let ((region (and (TeX-active-mark)
-                    (cons (region-beginning) (region-end)))))
-    (when region (delete-region (car region) (cdr region)))))
+  (with-no-warnings
+    (setq title (TeX-read-string "Title: " title))
+    (let ((region (and (TeX-active-mark)
+                      (cons (region-beginning) (region-end)))))
+      (when region (delete-region (car region) (cdr region))))))
 
 (defun LaTeX-section-toc ()
   "Hook to prompt for the LaTeX section entry in the table of content .
 Insert this hook into `LaTeX-section-hook' to allow the user to insert
 a different entry for the section in the table of content."
-  (setq toc (TeX-read-string "Toc Entry: "))
-  (if (zerop (length toc))
-      (setq toc nil)))
+  (with-no-warnings
+    (setq toc (TeX-read-string "Toc Entry: "))
+    (if (zerop (length toc))
+       (setq toc nil))))
 
 (defun LaTeX-section-section ()
   "Hook to insert LaTeX section command into the file.
@@ -491,18 +495,19 @@ assume that the section is already inserted."
                     "begin")
             (line-beginning-position 0) t))
     (LaTeX-newline))
-  (insert TeX-esc name)
-  (cond ((null toc))
-       ((zerop (length toc))
-        (insert LaTeX-optop)
-        (set-marker done-mark (point))
-        (insert LaTeX-optcl))
-       (t
-        (insert LaTeX-optop toc LaTeX-optcl)))
-  (insert TeX-grop)
-  (if (zerop (length title))
-      (set-marker done-mark (point)))
-  (insert title TeX-grcl)
+  (with-no-warnings
+    (insert TeX-esc name)
+    (cond ((null toc))
+         ((zerop (length toc))
+          (insert LaTeX-optop)
+          (set-marker done-mark (point))
+          (insert LaTeX-optcl))
+         (t
+          (insert LaTeX-optop toc LaTeX-optcl)))
+    (insert TeX-grop)
+    (if (zerop (length title))
+       (set-marker done-mark (point)))
+    (insert title TeX-grcl))
   (LaTeX-newline)
   ;; If RefTeX is available, tell it that we've just made a new section
   (and (fboundp 'reftex-notice-new-section)
@@ -514,8 +519,9 @@ Insert this hook into `LaTeX-section-hook' to prompt for a 
label to be
 inserted after the sectioning command.
 
 The behaviour of this hook is controlled by variable `LaTeX-section-label'."
-  (and (LaTeX-label name 'section)
-       (LaTeX-newline)))
+  (with-no-warnings
+    (and (LaTeX-label name 'section)
+        (LaTeX-newline))))
 
 ;;; Environments
 

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

Summary of changes:
 latex.el | 76 ++++++++++++++++++++++++++++++++++------------------------------
 1 file changed, 41 insertions(+), 35 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX