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

[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  e7b25d14f4f6930672dd43885c78c04cc7c83be9 (commit)
      from  1d32138f0005a32fae122231ce380a82b1cbdf5f (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 e7b25d14f4f6930672dd43885c78c04cc7c83be9
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Date:   Mon Apr 19 04:52:05 2021 +0900

    Use #' rather than ' to quote function names
    
    * latex.el (LaTeX-match-class-option, LaTeX-auto-cleanup):
    * style/beamer.el (LaTeX-beamer-after-insert-env):
    * style/doc.el (LaTeX-doc-after-insert-macrocode):
    * tex-buf.el (TeX-style-check, TeX-error-overview-make-entries):
    * tex.el (TeX-match-style, TeX-run-style-hooks)
    (TeX-complete-word)
    (TeX-complete-make-expert-command-functions)
    (TeX-default-mode,TeX-auto-parse-region):
    Use #' rather than ' to quote function names.

diff --git a/latex.el b/latex.el
index abad7ec..3ed35a9 100644
--- a/latex.el
+++ b/latex.el
@@ -1828,7 +1828,7 @@ The value is actually the tail of the list of options 
given to CLASS."
 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))
+              #'string-match))
 
 (defvar LaTeX-provided-package-options nil
   "Alist of options provided to LaTeX packages.
@@ -1958,7 +1958,7 @@ The value is actually the tail of the list of options 
given to PACKAGE."
   ;; NOTE: This uses an O(N^2) algorithm, while an O(N log N)
   ;; algorithm is possible.
   (mapc (lambda (symbol)
-          (if (not (TeX-member symbol TeX-auto-symbol 'equal))
+          (if (not (TeX-member symbol TeX-auto-symbol #'equal))
               ;; No matching symbol, insert in list
               (add-to-list 'TeX-auto-symbol (concat "end" symbol))
             ;; Matching symbol found, remove from list
diff --git a/style/beamer.el b/style/beamer.el
index 7c80ce8..942d807 100644
--- a/style/beamer.el
+++ b/style/beamer.el
@@ -41,7 +41,7 @@
   "Do beamer-specific stuff after the insertion of an environment."
   ;; Add `fragile' as an optional argument to the frame environment if
   ;; a verbatim environment is inserted.
-  (when (and (TeX-member env (LaTeX-verbatim-environments) 'string-equal)
+  (when (and (TeX-member env (LaTeX-verbatim-environments) #'string-equal)
              (save-excursion
                (goto-char start)
                (string-equal (LaTeX-current-environment) "frame")))
diff --git a/style/doc.el b/style/doc.el
index bcdfeef..6818e0a 100644
--- a/style/doc.el
+++ b/style/doc.el
@@ -50,7 +50,7 @@
 
 (defun LaTeX-doc-after-insert-macrocode (env start end)
   "Make sure the macrocode environment is properly formatted after insertion."
-  (when (TeX-member env '("macro" "macrocode" "macrocode*") 'string-equal)
+  (when (TeX-member env '("macro" "macrocode" "macrocode*") #'string-equal)
     (save-excursion
       (goto-char end)
       (skip-chars-backward " \t")
diff --git a/tex-buf.el b/tex-buf.el
index b8baacb..643d5d0 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -919,7 +919,7 @@ QUEUE is non-nil when we are checking for the printer 
queue."
   "Check STYLES compared to the current style options."
   (let ((files (TeX-style-list)))
     (while (and styles
-                (not (TeX-member (car (car styles)) files 'string-match)))
+                (not (TeX-member (car (car styles)) files #'string-match)))
       (setq styles (cdr styles))))
   (if styles
       (nth 1 (car styles))
@@ -3616,7 +3616,7 @@ errors.  If nil, defaults to 
`TeX-error-overview-active-buffer'."
                     'face 'link
                     'follow-link t
                     'id id
-                    'action 'TeX-error-overview-goto-source)))
+                    'action #'TeX-error-overview-goto-source)))
             entries))
          ;; Increase the `id' counter in any case.
          (setq id (1+ id)))
diff --git a/tex.el b/tex.el
index d8ae9b8..12d401d 100644
--- a/tex.el
+++ b/tex.el
@@ -1445,7 +1445,7 @@ are evaluated positively is chosen."
 
 (defun TeX-match-style (regexp)
   "Check if a style matching REGEXP is active."
-  (TeX-member regexp (TeX-style-list) 'string-match))
+  (TeX-member regexp (TeX-style-list) #'string-match))
 
 (defun TeX-view-match-predicate (predicate)
   "Check if PREDICATE is true.
@@ -2977,7 +2977,7 @@ See variable `TeX-style-hook-dialect' for supported 
dialects."
   "Run the TeX style hooks STYLES."
   (mapcar (lambda (style)
             ;; Avoid recursion.
-            (unless (TeX-member style TeX-active-styles 'string-equal)
+            (unless (TeX-member style TeX-active-styles #'string-equal)
               (setq TeX-active-styles
                     (cons style TeX-active-styles))
               (TeX-load-style style)
@@ -3084,7 +3084,7 @@ FORCE is not nil."
   :prefix "TeX-"
   :group 'AUCTeX)
 
-(defcustom TeX-complete-word 'ispell-complete-word
+(defcustom TeX-complete-word #'ispell-complete-word
   "Function to call for completing non-macros in `tex-mode'."
   :type 'function
   :group 'TeX-macro)
@@ -3107,7 +3107,7 @@ Possible values are nil, t, or a list of style names.
          (upcase-plural (upcase plural)))
     `(progn
        (defvar ,(intern (format "%s-expert-%s-table" prefix thing))
-         (make-hash-table :test 'equal)
+         (make-hash-table :test #'equal)
          ,(format "A hash-table mapping %s names to the style name providing 
it.
 
 A %s occuring in this table is considered an expert %s and
@@ -3637,7 +3637,7 @@ Each entry is a list with three elements.
 When entering `tex-mode', each regexp is tried in turn in order to find
 the major mode to be used.")
 
-(defcustom TeX-default-mode 'latex-mode
+(defcustom TeX-default-mode #'latex-mode
   "Mode to enter for a new file when it can't be determined otherwise."
   :group 'TeX-misc
   :type '(radio (function-item latex-mode)
@@ -4298,7 +4298,7 @@ you should not use something like `[\\(]' for a character 
range."
                          (cdr (or (assq symbol syms)
                                   (car (push
                                         (cons symbol
-                                              (make-hash-table :test 'equal))
+                                              (make-hash-table :test #'equal))
                                         syms)))))))))
         (setq count 0)
         (dolist (symbol syms)

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

Summary of changes:
 latex.el        |  4 ++--
 style/beamer.el |  2 +-
 style/doc.el    |  2 +-
 tex-buf.el      |  4 ++--
 tex.el          | 12 ++++++------
 5 files changed, 12 insertions(+), 12 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX