[AUCTeX-diffs] [elpa] externals/auctex e7b25d1 26/34: Use #' rather than ' to quote function names

[Tassilo Horn]

branch: externals/auctex
commit e7b25d14f4f6930672dd43885c78c04cc7c83be9
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>

    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.
---
 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(-)

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)