[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/auctex e7b25d1 26/34: Use #' rather than ' to quote fun
From: |
Tassilo Horn |
Subject: |
[elpa] externals/auctex e7b25d1 26/34: Use #' rather than ' to quote function names |
Date: |
Sun, 6 Jun 2021 11:40:05 -0400 (EDT) |
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)
- [elpa] externals/auctex afab0e0 17/34: Indent region (bug#48518), (continued)
- [elpa] externals/auctex afab0e0 17/34: Indent region (bug#48518), Tassilo Horn, 2021/06/06
- [elpa] externals/auctex 4309e91 15/34: ; * tex.el (TeX-command-list): Remove linebreak in :help string., Tassilo Horn, 2021/06/06
- [elpa] externals/auctex 2a4cbbb 21/34: Improve `TeX-electric-macro' in Texinfo mode, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex b5f34a9 23/34: Followup my commit on May 6, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex a21c10a 29/34: Check for `auto-fill-function' before filling, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex 93d66d1 31/34: Adapt for Texinfo mode, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex 8990190 16/34: Improve style/algorithm.el, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex 34ab611 22/34: Improve completion, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex a8e1a5d 18/34: Update documentation, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex 1ded6fc 24/34: Fix markups in documents, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex e7b25d1 26/34: Use #' rather than ' to quote function names,
Tassilo Horn <=
- [elpa] externals/auctex bb1bb25 27/34: Remove backspace as paragraph separator, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex 154fc6e 28/34: Only re-fill \item contents if auto-fill-mode is active (bug#48760), Tassilo Horn, 2021/06/06
- [elpa] externals/auctex c540e3a 30/34: Define minor modes using keywords, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex cd63c11 32/34: Use own error description for LaTeX mode only, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex dfd6585 33/34: Merge remote-tracking branch 'origin/master' into externals/auctex, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex 81ce0ee 19/34: Add -dDELAYBIND only when necessary, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex b0c5a4e 20/34: Delete style/latexinfo.el from AUCTeX, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex 6c32b97 34/34: Release GNU AUCTeX 13.0.12, Tassilo Horn, 2021/06/06
- [elpa] externals/auctex 1d32138 25/34: ; Silence the compiler, Tassilo Horn, 2021/06/06