[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/auctex 65b8b29 02/12: Use #' instead of ' to quote func
|
From: |
Tassilo Horn |
|
Subject: |
[elpa] externals/auctex 65b8b29 02/12: Use #' instead of ' to quote function names |
|
Date: |
Sat, 17 Apr 2021 15:13:20 -0400 (EDT) |
branch: externals/auctex
commit 65b8b29a279e3a99297f3fe552d2ed14b9050e1c
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>
Use #' instead of ' to quote function names
* bib-cite.el (bib-switch-to-buffer-function):
* latex.el (LaTeX-item-array, LaTeX-item-tabular*)
(LaTeX-math-insert-function, LaTeX-environment-menu-entry)
(LaTeX-environment-modify-menu-entry)
(LaTeX-section-menu-entry, LaTeX-indent-tabular)
* preview.el.in (preview-auto-reveal, preview-copy-mml)
(preview-copy-region-as-mml, preview-generate-preview):
* style/amsmath.el (LaTeX-item-equation-alignat):
* style/amsthm.el (LaTeX-amsthm-auto-cleanup)
("amsthm"):
* style/biblatex.el ("biblatex"):
* style/dinbrief.el (LaTeX-dinbrief-style)
(LaTeX-dinbrief-env-recipient):
* style/exam.el ("exam"):
* style/jurabib.el ("jurabib"):
* style/letter.el (LaTeX-env-recipient):
* style/minted.el (LaTeX-minted-auto-cleanup):
* style/natbib.el ("natbib"):
* style/ntheorem.el (LaTeX-ntheorem-auto-cleanup)
("ntheorem"):
* style/pythontex.el ("pythontex"):
* style/tcolorbox.el (LaTeX-tcolorbox-auto-cleanup):
* style/theorem.el (LaTeX-theorem-auto-cleanup)
("theorem"):
* style/xparse.el (LaTeX-xparse-macro-parse):
* tests/latex/font-latex-test.el (font-latex-three-dollars)
(font-latex-extend-region-backwards-quotation)
(font-latex-general-fontification):
* tex-bar.el (TeX-bar-TeX-button-alist)
(TeX-bar-LaTeX-button-alist):
* tex-buf.el (TeX-command-master, TeX-view):
* tex-info.el (TeX-texinfo-mode):
* tex-fold.el (TeX-fold-post-command):
* tex-site.el.in (tex-site-unload-hook):
* tex.el (TeX-expand-list-builtin,toplevel)
(TeX-source-correlate-start-server-maybe)
(TeX-install-font-lock, TeX-command-current)
(TeX-command-select-master, TeX-command-select-buffer)
(TeX-command-select-region, TeX-newline-function)
(TeX-mode-specific-command-menu-entries)
(TeX-font-replace-function, TeX-insert-dollar):
* toolbar-x.el (toolbarx-default-toolbar-meaning-alist):
* doc/auctex.texi (Mathematics, Filling, Folding)
(Hacking the Parser):
* doc/tex-ref.tex:
Use #' instead of ' to quote function names.
tex.el (): Add `declare-function' for `gnuserv-start'.
---
bib-cite.el | 2 +-
doc/auctex.texi | 10 +++++-----
doc/tex-ref.tex | 4 ++--
latex.el | 14 +++++++-------
preview.el.in | 8 ++++----
style/amsmath.el | 2 +-
style/amsthm.el | 6 +++---
style/biblatex.el | 4 ++--
style/dinbrief.el | 8 ++++++--
style/exam.el | 2 +-
style/jurabib.el | 6 +++---
style/letter.el | 4 +++-
style/minted.el | 2 +-
style/natbib.el | 6 +++---
style/ntheorem.el | 20 ++++++++++----------
style/pythontex.el | 4 ++--
style/tcolorbox.el | 6 +++---
style/theorem.el | 4 ++--
style/xparse.el | 6 +++---
tests/latex/font-latex-test.el | 6 +++---
tex-bar.el | 28 ++++++++++++++--------------
tex-buf.el | 4 ++--
tex-fold.el | 4 ++--
tex-info.el | 2 +-
tex-site.el.in | 2 +-
tex.el | 34 ++++++++++++++++++----------------
toolbar-x.el | 2 +-
27 files changed, 104 insertions(+), 96 deletions(-)
diff --git a/bib-cite.el b/bib-cite.el
index 99b9278..25ca90d 100644
--- a/bib-cite.el
+++ b/bib-cite.el
@@ -611,7 +611,7 @@ call a function in RefTeX to find or display the cross
reference of a
"Give advice to novice users about what commands to use next."
:type 'boolean)
-(defcustom bib-switch-to-buffer-function 'switch-to-buffer
+(defcustom bib-switch-to-buffer-function #'switch-to-buffer
"Function used to select buffers if they differ from the original.
You may use `switch-to-buffer' `switch-to-buffer-other-window' or
`switch-to-buffer-other-frame'."
diff --git a/doc/auctex.texi b/doc/auctex.texi
index b38a056..fbd64cb 100644
--- a/doc/auctex.texi
+++ b/doc/auctex.texi
@@ -1177,7 +1177,7 @@ variable @code{LaTeX-math-abbrev-prefix}.
To enable LaTeX Math mode by default, add the following in your
@file{.emacs} file:
@lisp
-(add-hook 'LaTeX-mode-hook 'LaTeX-math-mode)
+(add-hook 'LaTeX-mode-hook #'LaTeX-math-mode)
@end lisp
@defopt LaTeX-math-abbrev-prefix
@@ -1721,7 +1721,7 @@ automatically as you write it.
init file:
@lisp
-(add-hook 'LaTeX-mode-hook 'turn-on-auto-fill)
+(add-hook 'LaTeX-mode-hook #'turn-on-auto-fill)
@end lisp
You can manually fill explicitely marked regions, paragraphs,
@@ -2444,7 +2444,7 @@ add it to a hook and make sure the function is called
after font locking
is set up for the buffer. The following code should accomplish this:
@lisp
-(add-hook 'find-file-hook 'TeX-fold-buffer t)
+(add-hook 'find-file-hook #'TeX-fold-buffer t)
@end lisp
The command can be used any time to refresh the whole buffer and fold
@@ -5599,8 +5599,8 @@ defined. We can specify this information in a style hook
file.
"Clear `Tex-auto-multi' before use."
(setq TeX-auto-multi nil))
-(add-hook 'TeX-auto-prepare-hook 'TeX-macro-prepare)
-(add-hook 'TeX-auto-cleanup-hook 'TeX-macro-cleanup)
+(add-hook 'TeX-auto-prepare-hook #'TeX-macro-prepare)
+(add-hook 'TeX-auto-cleanup-hook #'TeX-macro-cleanup)
(TeX-add-style-hook
"macro"
diff --git a/doc/tex-ref.tex b/doc/tex-ref.tex
index 026f64d..2affa85 100644
--- a/doc/tex-ref.tex
+++ b/doc/tex-ref.tex
@@ -580,7 +580,7 @@ RefTeX is part of Emacs. To activate and make it interact
with
AUCTeX, insert the following lines in \file{init.el}.
\vskip-3mm
\beginexample
-(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
+(add-hook 'LaTeX-mode-hook \#'turn-on-reftex)
(setq reftex-plug-into-AUCTeX t)
\endexample
@@ -646,7 +646,7 @@ consistent.
\vskip-4mm
\beginexample
-(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
+(add-hook 'LaTeX-mode-hook \#'turn-on-reftex)
(setq reftex-plug-into-AUCTeX t)
\endexample
diff --git a/latex.el b/latex.el
index ddd2968..5311a30 100644
--- a/latex.el
+++ b/latex.el
@@ -1484,7 +1484,7 @@ If SUPPRESS is non-nil, do not insert line break macro."
(just-one-space)
(TeX-insert-macro "\\")))
(LaTeX-insert-ampersands
- LaTeX-array-skipping-regexp 'LaTeX-array-count-columns))
+ LaTeX-array-skipping-regexp #'LaTeX-array-count-columns))
(defun LaTeX-item-tabular* (&optional suppress)
"Insert line break macro on the last line and suitable number of &'s.
@@ -1497,7 +1497,7 @@ If SUPPRESS is non-nil, do not insert line break macro."
(just-one-space)
(TeX-insert-macro "\\")))
(LaTeX-insert-ampersands
- LaTeX-tabular*-skipping-regexp 'LaTeX-array-count-columns))
+ LaTeX-tabular*-skipping-regexp #'LaTeX-array-count-columns))
(defun LaTeX-insert-ampersands (regexp func)
"Insert suitable number of ampersands for the current environment.
@@ -5486,7 +5486,7 @@ commands are defined:
"Menu used in math minor mode."
LaTeX-math-menu)
-(defcustom LaTeX-math-insert-function 'TeX-insert-macro
+(defcustom LaTeX-math-insert-function #'TeX-insert-macro
"Function called with argument STRING to insert \\STRING."
:group 'LaTeX-math
:type 'function)
@@ -5643,13 +5643,13 @@ environments."
(defun LaTeX-environment-menu-entry (entry)
"Create an entry for the environment menu."
- (vector (car entry) (list 'LaTeX-environment-menu (car entry)) t))
+ (vector (car entry) (list #'LaTeX-environment-menu (car entry)) t))
(defvar LaTeX-environment-modify-menu-name "Change Environment (C-u C-c C-e)")
(defun LaTeX-environment-modify-menu-entry (entry)
"Create an entry for the change environment menu."
- (vector (car entry) (list 'LaTeX-modify-environment (car entry)) t))
+ (vector (car entry) (list #'LaTeX-modify-environment (car entry)) t))
(defun LaTeX-section-enable-symbol (level)
"Symbol used to enable section LEVEL in the menu bar."
@@ -5671,7 +5671,7 @@ environments."
(defun LaTeX-section-menu-entry (entry)
"Create an ENTRY for the section menu."
(let ((enable (LaTeX-section-enable-symbol (nth 1 entry))))
- (vector (car entry) (list 'LaTeX-section-menu (nth 1 entry)) enable)))
+ (vector (car entry) (list #'LaTeX-section-menu (nth 1 entry)) enable)))
(defcustom LaTeX-menu-max-items 25
"Maximum number of items in the menu for LaTeX environments.
@@ -6924,7 +6924,7 @@ function would return non-nil and `(match-string 1)'
would return
(regexp-opt
(let (out)
(mapc (lambda (x)
- (when (eq (cadr x) 'LaTeX-indent-tabular)
+ (when (eq (cadr x) #'LaTeX-indent-tabular)
(push (car x) out)))
LaTeX-indent-environment-list)
out)))))
diff --git a/preview.el.in b/preview.el.in
index 4006744..79dbfe2 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -1625,7 +1625,7 @@ Fallback to :inherit and 'default implemented."
(defcustom preview-auto-reveal
'(eval (preview-arrived-via (key-binding [left]) (key-binding [right])
- 'backward-char 'forward-char))
+ #'backward-char #'forward-char))
"Cause previews to open automatically when entered.
Possibilities are:
T autoopens,
@@ -2843,7 +2843,7 @@ using MML mode."
(when (catch 'badcolor
(let ((str (car (preview-format-mml ov))))
(if str
- (if (eq last-command 'kill-region)
+ (if (eq last-command #'kill-region)
(kill-append str nil)
(kill-new str))
(error "No image file available")))
@@ -2869,7 +2869,7 @@ using MML mode."
(setq str (concat (substring str 0 (nth 0 elt))
(nth 2 elt)
(substring str (nth 1 elt)))))
- (if (eq last-command 'kill-region)
+ (if (eq last-command #'kill-region)
(kill-append str nil)
(kill-new str)))
nil)
@@ -4135,7 +4135,7 @@ It returns the started process."
(let* ((geometry (preview-get-geometry))
(commandbuff (current-buffer))
(pr-file (cons
- 'TeX-active-master
+ #'TeX-active-master
(file-name-nondirectory file)))
(master (TeX-master-file))
(master-file (expand-file-name master))
diff --git a/style/amsmath.el b/style/amsmath.el
index 6f51588..a2b7831 100644
--- a/style/amsmath.el
+++ b/style/amsmath.el
@@ -236,7 +236,7 @@ If SUPPRESS is non-nil, do not insert line break macro."
(concat "\\(?:"
(regexp-quote LaTeX-optop) "[tb]" (regexp-quote LaTeX-optcl)
"\\)?")
- 'LaTeX-amsmath-alignat-number-of-ampersands))
+ #'LaTeX-amsmath-alignat-number-of-ampersands))
(defun LaTeX-amsmath-alignat-number-of-ampersands (start end)
"Return the number of ampersands to insert.
diff --git a/style/amsthm.el b/style/amsthm.el
index a009ae0..866951a 100644
--- a/style/amsthm.el
+++ b/style/amsthm.el
@@ -112,7 +112,7 @@ RefTeX users should customize or add ENVIRONMENT to
"Move parsed results from `LaTeX-auto-amsthm-newtheorem' and
make them available as new environments."
(dolist (newthm (mapcar #'car (LaTeX-amsthm-newtheorem-list)))
- (LaTeX-add-environments (list newthm 'LaTeX-amsthm-env-label))))
+ (LaTeX-add-environments (list newthm #'LaTeX-amsthm-env-label))))
(add-hook 'TeX-auto-prepare-hook #'LaTeX-amsthm-auto-prepare t)
(add-hook 'TeX-auto-cleanup-hook #'LaTeX-amsthm-auto-cleanup t)
@@ -137,7 +137,7 @@ make them available as new environments."
(let ((nthm (TeX-read-string
(TeX-argument-prompt nil nil "Environment"))))
(LaTeX-add-amsthm-newtheorems nthm)
- (LaTeX-add-environments (list nthm 'LaTeX-amsthm-env-label))
+ (LaTeX-add-environments (list nthm #'LaTeX-amsthm-env-label))
(format "%s" nthm))))
[ TeX-arg-environment "Numbered like" ]
t [ (TeX-arg-eval progn (if (eq (save-excursion
@@ -155,7 +155,7 @@ make them available as new environments."
(heading (TeX-read-string
(TeX-argument-prompt nil nil "Heading"))))
(LaTeX-add-amsthm-newtheorems nthm)
- (LaTeX-add-environments (list nthm 'LaTeX-amsthm-env-label))
+ (LaTeX-add-environments (list nthm #'LaTeX-amsthm-env-label))
(insert (concat TeX-grop nthm TeX-grcl))
(format "%s" heading)))))
diff --git a/style/biblatex.el b/style/biblatex.el
index c925c93..3e86b71 100644
--- a/style/biblatex.el
+++ b/style/biblatex.el
@@ -515,7 +515,7 @@ for citation keys."
(list
(car cmd)
'(TeX-arg-conditional TeX-arg-cite-note-p (["Postnote"]) nil)
- 'TeX-arg-cite))
+ #'TeX-arg-cite))
((= (cdr cmd) 2)
;; Pre and post notes
(list
@@ -523,7 +523,7 @@ for citation keys."
'(TeX-arg-conditional TeX-arg-cite-note-p
([LaTeX-arg-biblatex-natbib-notes])
nil)
- 'TeX-arg-cite))))
+ #'TeX-arg-cite))))
cmds))
;; Fontification for compat macros does not go into `font-latex.el':
diff --git a/style/dinbrief.el b/style/dinbrief.el
index e676ca4..57bf773 100644
--- a/style/dinbrief.el
+++ b/style/dinbrief.el
@@ -71,8 +71,10 @@
(defun LaTeX-dinbrief-style ()
"Insert some useful packages for writing german letters."
+ ;; COMPATIBILITY for EMACS<26
(let ((func (if (fboundp 'indent-relative-first-indent-point)
- 'indent-relative-first-indent-point
+ #'indent-relative-first-indent-point
+ ;; Stay away from using #' to avoid compiler warning.
'indent-relative-maybe)))
(save-excursion
(goto-char (point-min)) ; insert before \begin{document}
@@ -107,8 +109,10 @@
(closing (TeX-read-string "Schluss: "))
(signature (TeX-read-string "Unterschrift: "))
(anlage (TeX-read-string "Anlagen: "))
+ ;; COMPATIBILITY for EMACS<26
(func (if (fboundp 'indent-relative-first-indent-point)
- 'indent-relative-first-indent-point
+ #'indent-relative-first-indent-point
+ ;; Stay away from using #' to avoid compiler warning.
'indent-relative-maybe)))
(if (string= fenster "ja")
(progn
diff --git a/style/exam.el b/style/exam.el
index 15b7928..0ca7c63 100644
--- a/style/exam.el
+++ b/style/exam.el
@@ -121,7 +121,7 @@ Arguments NAME and TYPE are the same as for the function
"checkboxes" "oneparcheckboxes")))
(dolist (env envs)
(add-to-list 'LaTeX-item-list
- (cons env 'LaTeX-exam-insert-item)
+ (cons env #'LaTeX-exam-insert-item)
t)))
;; Append us only once:
diff --git a/style/jurabib.el b/style/jurabib.el
index dc01954..68c02fc 100644
--- a/style/jurabib.el
+++ b/style/jurabib.el
@@ -68,19 +68,19 @@
(cond
((= (cdr cmd) 0)
;; No optional arguments
- (list (car cmd) 'TeX-arg-cite))
+ (list (car cmd) #'TeX-arg-cite))
((= (cdr cmd) 1)
;; Just one optional argument, the post note
(list
(car cmd)
'(TeX-arg-conditional TeX-arg-cite-note-p (["Post-note"]) nil)
- 'TeX-arg-cite))
+ #'TeX-arg-cite))
((= (cdr cmd) 2)
;; Pre and post notes
(list
(car cmd)
'(TeX-arg-conditional TeX-arg-cite-note-p (natbib-note-args) nil)
- 'TeX-arg-cite))))
+ #'TeX-arg-cite))))
citecmds))
;; Special cases
(TeX-add-symbols
diff --git a/style/letter.el b/style/letter.el
index c51be18..a07aba5 100644
--- a/style/letter.el
+++ b/style/letter.el
@@ -102,8 +102,10 @@
(opening (TeX-read-string "Opening: "))
(closing (TeX-read-string "Closing: "))
(date (TeX-read-string "Date: " (LaTeX-today)))
+ ;; COMPATIBILITY for EMACS<26
(func (if (fboundp 'indent-relative-first-indent-point)
- 'indent-relative-first-indent-point
+ #'indent-relative-first-indent-point
+ ;; Stay away from using #' to avoid compiler warning.
'indent-relative-maybe)))
(insert TeX-esc "name" TeX-grop sender TeX-grcl)
diff --git a/style/minted.el b/style/minted.el
index 9a919cc..dd4d545 100644
--- a/style/minted.el
+++ b/style/minted.el
@@ -277,7 +277,7 @@ are loaded."
(env* (concat env "*")))
(add-to-list 'LaTeX-auto-environment (list env))
(add-to-list 'LaTeX-auto-environment
- (list env* 'LaTeX-env-args
+ (list env* #'LaTeX-env-args
'(TeX-arg-key-val
LaTeX-minted-key-val-options-local)))
(add-to-list 'LaTeX-indent-environment-list `(,env current-indentation)
t)
(add-to-list 'LaTeX-indent-environment-list `(,env* current-indentation)
t)
diff --git a/style/natbib.el b/style/natbib.el
index 5481629..ba6622a 100644
--- a/style/natbib.el
+++ b/style/natbib.el
@@ -63,19 +63,19 @@
(cond
((= (cdr cmd) 0)
;; No optional arguments
- (list (car cmd) 'TeX-arg-cite))
+ (list (car cmd) #'TeX-arg-cite))
((= (cdr cmd) 1)
;; Just one optional argument, the post note
(list
(car cmd)
'(TeX-arg-conditional TeX-arg-cite-note-p (["Post-note"]) nil)
- 'TeX-arg-cite))
+ #'TeX-arg-cite))
((= (cdr cmd) 2)
;; Pre and post notes
(list
(car cmd)
'(TeX-arg-conditional TeX-arg-cite-note-p
([LaTeX-arg-natbib-notes]) nil)
- 'TeX-arg-cite))))
+ #'TeX-arg-cite))))
citecmds))
;; Make an entry in TeX-complete-list
diff --git a/style/ntheorem.el b/style/ntheorem.el
index e3ab7ad..35c4e45 100644
--- a/style/ntheorem.el
+++ b/style/ntheorem.el
@@ -141,9 +141,9 @@ make them available as new environments. Update
`LaTeX-ntheorem-theoremstyle-list' with styles defined with
\"\\newtheoremstyle\"."
(dolist (newthm (mapcar #'car (LaTeX-ntheorem-newtheorem-list)))
- (LaTeX-add-environments (list newthm 'LaTeX-ntheorem-env-label))
+ (LaTeX-add-environments (list newthm #'LaTeX-ntheorem-env-label))
(LaTeX-add-environments (list (concat newthm "*")
- 'LaTeX-ntheorem-env-label)))
+ #'LaTeX-ntheorem-env-label)))
(dolist (newthmstyle (LaTeX-ntheorem-newtheoremstyle-list))
(add-to-list (make-local-variable 'LaTeX-ntheorem-theoremstyle-list)
newthmstyle))
@@ -189,9 +189,9 @@ make them available as new environments. Update
(let ((nthm (TeX-read-string
(TeX-argument-prompt nil nil "Environment"))))
(LaTeX-add-ntheorem-newtheorems nthm)
- (LaTeX-add-environments (list nthm 'LaTeX-ntheorem-env-label))
+ (LaTeX-add-environments (list nthm #'LaTeX-ntheorem-env-label))
(LaTeX-add-environments (list (concat nthm "*")
- 'LaTeX-ntheorem-env-label))
+ #'LaTeX-ntheorem-env-label))
(format "%s" nthm))))
[ TeX-arg-environment "Numbered like" ]
t [ (TeX-arg-eval progn (if (eq (save-excursion
@@ -260,9 +260,9 @@ make them available as new environments. Update
"Proof" "Beweis")))
(dolist (elt env)
(LaTeX-add-ntheorem-newtheorems elt)
- (LaTeX-add-environments (list elt 'LaTeX-ntheorem-env-label))
+ (LaTeX-add-environments (list elt #'LaTeX-ntheorem-env-label))
(LaTeX-add-environments (list (concat elt "*")
- 'LaTeX-ntheorem-env-label)))))
+ #'LaTeX-ntheorem-env-label)))))
;; 2.3.7 Framed and Boxed Theorems
'("newframedtheorem"
@@ -271,9 +271,9 @@ make them available as new environments. Update
(let ((nthm (TeX-read-string
(TeX-argument-prompt nil nil "Environment"))))
(LaTeX-add-ntheorem-newtheorems nthm)
- (LaTeX-add-environments (list nthm 'LaTeX-ntheorem-env-label))
+ (LaTeX-add-environments (list nthm #'LaTeX-ntheorem-env-label))
(LaTeX-add-environments (list (concat nthm "*")
- 'LaTeX-ntheorem-env-label))
+ #'LaTeX-ntheorem-env-label))
(format "%s" nthm))))
[ TeX-arg-environment "Numbered like" ]
t [ (TeX-arg-eval progn (if (eq (save-excursion
@@ -289,9 +289,9 @@ make them available as new environments. Update
(let ((nthm (TeX-read-string
(TeX-argument-prompt nil nil "Environment"))))
(LaTeX-add-ntheorem-newtheorems nthm)
- (LaTeX-add-environments (list nthm 'LaTeX-ntheorem-env-label))
+ (LaTeX-add-environments (list nthm #'LaTeX-ntheorem-env-label))
(LaTeX-add-environments (list (concat nthm "*")
- 'LaTeX-ntheorem-env-label))
+ #'LaTeX-ntheorem-env-label))
(format "%s" nthm))))
[ TeX-arg-environment "Numbered like" ]
t [ (TeX-arg-eval progn (if (eq (save-excursion
diff --git a/style/pythontex.el b/style/pythontex.el
index 4c5089d..08c0033 100644
--- a/style/pythontex.el
+++ b/style/pythontex.el
@@ -243,11 +243,11 @@ a list of strings."
(verb-envs-regexp (regexp-opt verb-envs "\\(?:")))
(apply #'TeX-add-symbols
(mapcar (lambda (mac)
- (list mac [ "Session" ] 'TeX-arg-verb-delim-or-brace))
+ (list mac [ "Session" ] #'TeX-arg-verb-delim-or-brace))
verb-macs))
(apply #'LaTeX-add-environments
(mapcar (lambda (env)
- (list env 'LaTeX-env-pythontex))
+ (list env #'LaTeX-env-pythontex))
verb-envs))
;; Filling:
(dolist (mac verb-macs)
diff --git a/style/tcolorbox.el b/style/tcolorbox.el
index 68cd0aa..c7e7051 100644
--- a/style/tcolorbox.el
+++ b/style/tcolorbox.el
@@ -510,8 +510,8 @@ e.g. \"tcolorboxlib-raster.el\"."
opt (not (string= opt "")))
(LaTeX-add-environments
(list box
- 'LaTeX-env-args
- (vector 'TeX-arg-key-val
'LaTeX-tcolorbox-keyval-options-local)
+ #'LaTeX-env-args
+ [TeX-arg-key-val LaTeX-tcolorbox-keyval-options-local]
(1- (string-to-number arg)))))
(;; mandatory argument(s) only
(and arg (not (string= arg ""))
@@ -539,7 +539,7 @@ e.g. \"tcolorboxlib-raster.el\"."
(and arg (not (string= arg ""))
opt (not (string= opt "")))
(TeX-add-symbols (list box
- (vector 'TeX-arg-key-val
'LaTeX-tcolorbox-keyval-options-local)
+ [TeX-arg-key-val
LaTeX-tcolorbox-keyval-options-local]
(1- (string-to-number arg)))))
(;; mandatory argument(s) only
(and arg (not (string= arg ""))
diff --git a/style/theorem.el b/style/theorem.el
index 4c3547b..d844129 100644
--- a/style/theorem.el
+++ b/style/theorem.el
@@ -114,7 +114,7 @@ RefTeX users should customize or add ENVIRONMENT to
"Move parsed results from `LaTeX-auto-theorem-newtheorem' and
make them available as new environments."
(dolist (newthm (mapcar #'car (LaTeX-theorem-newtheorem-list)))
- (LaTeX-add-environments (list newthm 'LaTeX-theorem-env-label))))
+ (LaTeX-add-environments (list newthm #'LaTeX-theorem-env-label))))
(add-hook 'TeX-auto-prepare-hook #'LaTeX-theorem-auto-prepare t)
(add-hook 'TeX-auto-cleanup-hook #'LaTeX-theorem-auto-cleanup t)
@@ -136,7 +136,7 @@ make them available as new environments."
(let ((nthm (TeX-read-string
(TeX-argument-prompt nil nil "Environment"))))
(LaTeX-add-theorem-newtheorems nthm)
- (LaTeX-add-environments (list nthm 'LaTeX-theorem-env-label))
+ (LaTeX-add-environments (list nthm #'LaTeX-theorem-env-label))
(format "%s" nthm))))
[ TeX-arg-environment "Numbered like" ]
t [ (TeX-arg-eval progn (if (eq (save-excursion
diff --git a/style/xparse.el b/style/xparse.el
index 5dd4f84..b02b3f9 100644
--- a/style/xparse.el
+++ b/style/xparse.el
@@ -141,7 +141,7 @@ TYPE is one of the symobols mac or env."
;; v: Use `TeX-arg-verb-delim-or-brace'
((looking-at-p "v")
(forward-char 1)
- (push 'TeX-arg-verb-delim-or-brace args))
+ (push #'TeX-arg-verb-delim-or-brace args))
;; Optional arguments:
;; o standard LaTeX optional in square brackets
((looking-at-p "o")
@@ -150,7 +150,7 @@ TYPE is one of the symobols mac or env."
;; d<token1><token2>
((looking-at-p "d")
(re-search-forward "d\\(?:\\(.\\)\\(.\\)\\)" (+ (point) 3) t)
- (push (vector 'LaTeX-arg-xparse-query
+ (push (vector #'LaTeX-arg-xparse-query
(match-string-no-properties 1)
(match-string-no-properties 2))
args))
@@ -163,7 +163,7 @@ TYPE is one of the symobols mac or env."
((looking-at-p "D")
(re-search-forward "D\\(?:\\(.\\)\\(.\\)\\)" (+ (point) 3) t)
(forward-sexp)
- (push (vector 'LaTeX-arg-xparse-query
+ (push (vector #'LaTeX-arg-xparse-query
(match-string-no-properties 1)
(match-string-no-properties 2))
args))
diff --git a/tests/latex/font-latex-test.el b/tests/latex/font-latex-test.el
index 577ec77..744ffdd 100644
--- a/tests/latex/font-latex-test.el
+++ b/tests/latex/font-latex-test.el
@@ -34,7 +34,7 @@
;; it should not stop there and return nil, but instead should
;; ignore them and search another occurence of $. That is the
;; behavior expected for MATCHER function of `font-lock-keywords'.
- (should (let ((TeX-install-font-lock 'font-latex-setup))
+ (should (let ((TeX-install-font-lock #'font-latex-setup))
(with-temp-buffer
(insert "% $$$ $$$
$a$")
@@ -46,7 +46,7 @@ $a$")
(ert-deftest font-latex-extend-region-backwards-quotation ()
"Test f-l-e-r-b-q doesn't extend region too eagerly."
(with-temp-buffer
- (let ((TeX-install-font-lock 'font-latex-setup)
+ (let ((TeX-install-font-lock #'font-latex-setup)
(font-latex-quotes 'french)
font-lock-beg font-lock-end)
(LaTeX-mode)
@@ -86,7 +86,7 @@ $a$")
(ert-deftest font-latex-general-fontification ()
"Test general fontification in a LaTeX file."
(with-temp-buffer
- (let ((TeX-install-font-lock 'font-latex-setup)
+ (let ((TeX-install-font-lock #'font-latex-setup)
(font-latex-fontify-sectioning 'color))
(insert "\
\\documentclass[10pt]{article}
diff --git a/tex-bar.el b/tex-bar.el
index 06f767a..49e1b3c 100644
--- a/tex-bar.el
+++ b/tex-bar.el
@@ -137,13 +137,13 @@ the argument BUTTON-ALIST in function
`toolbarx-install-toolbar'."
'((tex :image (lambda nil (if TeX-PDF-mode "pdftex" "tex"))
:command (progn
(TeX-save-document #'TeX-master-file)
- (TeX-command "TeX" 'TeX-master-file -1))
+ (TeX-command "TeX" #'TeX-master-file -1))
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "TeX")))
(pdftex :image "pdftex"
:command (progn
(TeX-save-document #'TeX-master-file)
- (TeX-command "PDFTeX" 'TeX-master-file -1))
+ (TeX-command "PDFTeX" #'TeX-master-file -1))
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "PDFTeX")))
(next-error :image "error"
@@ -151,24 +151,24 @@ the argument BUTTON-ALIST in function
`toolbarx-install-toolbar'."
:enable (TeX-error-report-has-errors-p)
:visible (TeX-error-report-has-errors-p))
(view :image (lambda nil (if TeX-PDF-mode "viewpdf" "viewdvi"))
- :command (TeX-command "View" 'TeX-master-file -1)
+ :command (TeX-command "View" #'TeX-master-file -1)
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "View")))
(file :image "dvips"
- :command (TeX-command "File" 'TeX-master-file -1)
+ :command (TeX-command "File" #'TeX-master-file -1)
:visible (not TeX-PDF-mode)
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "File")))
(bibtex :image "bibtex"
- :command (TeX-command "BibTeX" 'TeX-master-file -1)
+ :command (TeX-command "BibTeX" #'TeX-master-file -1)
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "BibTeX")))
(clean :image "delete"
- :command (TeX-command "Clean" 'TeX-master-file -1)
+ :command (TeX-command "Clean" #'TeX-master-file -1)
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "Clean")))
(spell :image "spell"
- :command (TeX-command "Spell" 'TeX-master-file -1)
+ :command (TeX-command "Spell" #'TeX-master-file -1)
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "Spell"))))
;; latex-symbols-experimental?
@@ -278,13 +278,13 @@ the argument BUTTON-ALIST in function
`toolbarx-install-toolbar'."
'((latex :image (lambda nil (if TeX-PDF-mode "pdftex" "tex"))
:command (progn
(TeX-save-document #'TeX-master-file)
- (TeX-command "LaTeX" 'TeX-master-file -1))
+ (TeX-command "LaTeX" #'TeX-master-file -1))
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "LaTeX")))
(pdflatex :image "pdftex"
:command (progn
(TeX-save-document #'TeX-master-file)
- (TeX-command "PDFLaTeX" 'TeX-master-file -1))
+ (TeX-command "PDFLaTeX" #'TeX-master-file -1))
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "PDFLaTeX")))
(next-error :image "error"
@@ -292,26 +292,26 @@ the argument BUTTON-ALIST in function
`toolbarx-install-toolbar'."
:enable (TeX-error-report-has-errors-p)
:visible (TeX-error-report-has-errors-p))
(view :image (lambda nil (if TeX-PDF-mode "viewpdf" "viewdvi"))
- :command (TeX-command "View" 'TeX-master-file -1)
+ :command (TeX-command "View" #'TeX-master-file -1)
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "View")))
(file :image "dvips"
- :command (TeX-command "File" 'TeX-master-file -1)
+ :command (TeX-command "File" #'TeX-master-file -1)
:visible (not TeX-PDF-mode)
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "File")))
(bibtex :image "bibtex"
:command (TeX-command (if LaTeX-using-Biber "Biber" "BibTeX")
- 'TeX-master-file -1)
+ #'TeX-master-file -1)
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list
(if LaTeX-using-Biber "Biber" "BibTeX"))))
(clean :image "delete"
- :command (TeX-command "Clean" 'TeX-master-file -1)
+ :command (TeX-command "Clean" #'TeX-master-file -1)
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "Clean")))
(spell :image "spell"
- :command (TeX-command "Spell" 'TeX-master-file -1)
+ :command (TeX-command "Spell" #'TeX-master-file -1)
:help (lambda (&rest ignored)
(TeX-bar-help-from-command-list "Spell")))
(latex-symbols-experimental . (:alias :eval-group
diff --git a/tex-buf.el b/tex-buf.el
index f0e26bc..96fab0a 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -105,7 +105,7 @@ depend on it being positive instead of the entry in
`TeX-command-list'."
(interactive "P")
(TeX-master-file nil nil t) ;; call to ask if necessary
(TeX-command (TeX-command-query #'TeX-master-file)
- 'TeX-master-file override-confirm))
+ #'TeX-master-file override-confirm))
(defcustom TeX-region-extra ""
"String to insert in the region file between the header and the text."
@@ -977,7 +977,7 @@ depending on the last command issued."
(interactive)
(let ((output-file (TeX-active-master (TeX-output-extension))))
(if (file-exists-p output-file)
- (TeX-command "View" 'TeX-active-master 0)
+ (TeX-command "View" #'TeX-active-master 0)
(message "Output file %S does not exist." output-file))))
;;; Command Hooks
diff --git a/tex-fold.el b/tex-fold.el
index b5b19f7..963690a 100644
--- a/tex-fold.el
+++ b/tex-fold.el
@@ -852,8 +852,8 @@ Remove the respective properties from the overlay OV."
;; See preview.el on how to make this configurable.
(memq this-command
(list (key-binding [left]) (key-binding [right])
- 'backward-char 'forward-char
- 'mouse-set-point)))
+ #'backward-char #'forward-char
+ #'mouse-set-point)))
;; Open new overlays.
(dolist (ol (nconc (when (and TeX-fold-unfold-around-mark
mark-active)
diff --git a/tex-info.el b/tex-info.el
index 185f755..57e14c3 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -680,7 +680,7 @@ value of `Texinfo-mode-hook'."
(set (make-local-variable 'outline-level) 'texinfo-outline-level)
;; Mostly AUCTeX stuff
- (set (make-local-variable 'TeX-command-current) 'TeX-command-master)
+ (set (make-local-variable 'TeX-command-current) #'TeX-command-master)
(setq TeX-default-extension "texi")
(set (make-local-variable 'TeX-esc) "@")
diff --git a/tex-site.el.in b/tex-site.el.in
index 847bedd..558f788 100644
--- a/tex-site.el.in
+++ b/tex-site.el.in
@@ -105,7 +105,7 @@ shared by all users of a site."
;; fails on non-list elements in Emacs 21.
(let* ((alist (car list))
(tail alist)
- (key 'TeX-modes-set))
+ (key #'TeX-modes-set))
(while tail
(if (and (consp (car tail))
(eq (car (car tail)) key))
diff --git a/tex.el b/tex.el
index dcdabf6..d68dfb4 100644
--- a/tex.el
+++ b/tex.el
@@ -57,6 +57,8 @@
nil)
(declare-function tex--prettify-symbols-compose-p "ext:tex-mode"
(start end match))
+(declare-function gnuserv-start "ext:gnuserv"
+ (&optional leave-dead) t)
;; Silence the compiler for variables:
;; tex.el: Variables defined somewhere in this file:
@@ -575,7 +577,7 @@ string."
(null TeX-source-correlate-output-page-function)
(eq (TeX-source-correlate-method-active) 'synctex)
(setq TeX-source-correlate-output-page-function
- 'TeX-synctex-output-page))
+ #'TeX-synctex-output-page))
(or (if TeX-source-correlate-output-page-function
(funcall
TeX-source-correlate-output-page-function))
"1")))
@@ -1612,7 +1614,7 @@ For available TYPEs, see variable `TeX-engine'."
:group 'TeX-command
(TeX-engine-set (if TeX-Omega-mode 'omega 'default)))
(defalias 'tex-omega-mode #'TeX-Omega-mode)
-(make-obsolete 'TeX-Omega-mode 'TeX-engine-set "11.86")
+(make-obsolete 'TeX-Omega-mode #'TeX-engine-set "11.86")
(make-obsolete-variable 'TeX-Omega-mode 'TeX-engine "11.86")
;;; Forward and inverse search
@@ -1694,7 +1696,7 @@ This is the case if
`TeX-source-correlate-start-server-flag' is non-nil."
(when (and TeX-source-correlate-start-server-flag
(not (TeX-source-correlate-server-enabled-p)))
(let* ((gnuserv-p (TeX-source-correlate-gnuserv-p))
- (start (if gnuserv-p 'gnuserv-start 'server-start)))
+ (start (if gnuserv-p #'gnuserv-start #'server-start)))
(cond
;; Server should be started unconditionally
((eq TeX-source-correlate-start-server t)
@@ -3611,7 +3613,7 @@ argument OPTIONAL is ignored."
;;; Font Locking
-(defcustom TeX-install-font-lock 'font-latex-setup
+(defcustom TeX-install-font-lock #'font-latex-setup
"Function to call to install font lock support.
Choose `ignore' if you don't want AUCTeX to install support for font locking."
:group 'TeX-misc
@@ -4806,7 +4808,7 @@ element to ALIST-VAR."
;;; Menu Support
-(defvar TeX-command-current 'TeX-command-master
+(defvar TeX-command-current #'TeX-command-master
"Specify whether to run command on master, buffer or region.")
;; Function used to run external command.
@@ -4814,19 +4816,19 @@ element to ALIST-VAR."
"Determine that the next command will be on the master file."
(interactive)
(message "Next command will be on the master file.")
- (setq TeX-command-current 'TeX-command-master))
+ (setq TeX-command-current #'TeX-command-master))
(defun TeX-command-select-buffer ()
"Determine that the next command will be on the buffer."
(interactive)
(message "Next command will be on the buffer")
- (setq TeX-command-current 'TeX-command-buffer))
+ (setq TeX-command-current #'TeX-command-buffer))
(defun TeX-command-select-region ()
"Determine that the next command will be on the region."
(interactive)
(message "Next command will be on the region")
- (setq TeX-command-current 'TeX-command-region))
+ (setq TeX-command-current #'TeX-command-region))
(defvar TeX-command-force nil)
;; If non-nil, TeX-command-query will return the value of this
@@ -4891,7 +4893,7 @@ affected. See `TeX-electric-macro' for detail."
:group 'TeX-macro
:type 'boolean)
-(defcustom TeX-newline-function 'newline
+(defcustom TeX-newline-function #'newline
"Function to be called upon pressing `RET'."
:group 'TeX-indentation
:type '(choice (const newline)
@@ -4997,15 +4999,15 @@ Brace insertion is only done if point is in a math
construct and
`("Command on"
[ "Master File" TeX-command-select-master
:keys "C-c C-c" :style radio
- :selected (eq TeX-command-current 'TeX-command-master)
+ :selected (eq TeX-command-current #'TeX-command-master)
:help "Commands in this menu work on the Master File"]
[ "Buffer" TeX-command-select-buffer
:keys "C-c C-b" :style radio
- :selected (eq TeX-command-current 'TeX-command-buffer)
+ :selected (eq TeX-command-current #'TeX-command-buffer)
:help "Commands in this menu work on the current buffer"]
[ "Region" TeX-command-select-region
:keys "C-c C-r" :style radio
- :selected (eq TeX-command-current 'TeX-command-region)
+ :selected (eq TeX-command-current #'TeX-command-region)
:help "Commands in this menu work on the region"]
[ "Fix the Region" TeX-pin-region
:active (or (if prefix-arg
@@ -5704,7 +5706,7 @@ An optional fourth (or sixth) element means always
replace if t."
(string :tag "Math Suffix")))
(option (sexp :format "Replace\n" :value t)))))
-(defvar TeX-font-replace-function 'TeX-font-replace
+(defvar TeX-font-replace-function #'TeX-font-replace
"Determines the function which is called when a font should be replaced.")
(defun TeX-describe-font-entry (entry)
@@ -5927,17 +5929,17 @@ sign. With optional ARG, insert that many dollar
signs."
(exchange-point-and-mark))
(cond
;; $...$ to $$...$$
- ((and (eq last-command 'TeX-insert-dollar)
+ ((and (eq last-command #'TeX-insert-dollar)
(re-search-forward "\\=\\$\\([^$][^z-a]*[^$]\\)\\$" (mark) t))
(replace-match "$$\\1$$")
(set-mark (match-beginning 0)))
;; \(...\) to \[...\]
- ((and (eq last-command 'TeX-insert-dollar)
+ ((and (eq last-command #'TeX-insert-dollar)
(re-search-forward "\\=\\\\(\\([^z-a]*\\)\\\\)" (mark) t))
(replace-match "\\\\[\\1\\\\]")
(set-mark (match-beginning 0)))
;; Strip \[...\] or $$...$$
- ((and (eq last-command 'TeX-insert-dollar)
+ ((and (eq last-command #'TeX-insert-dollar)
(or (re-search-forward "\\=\\\\\\[\\([^z-a]*\\)\\\\\\]" (mark) t)
(re-search-forward "\\=\\$\\$\\([^z-a]*\\)\\$\\$" (mark) t)))
(replace-match "\\1")
diff --git a/toolbar-x.el b/toolbar-x.el
index 1164797..d95ca59 100644
--- a/toolbar-x.el
+++ b/toolbar-x.el
@@ -1480,7 +1480,7 @@ line of buttons. The only property supported for this
button is
:command undo
:enable (and (not buffer-read-only)
(not (eq t buffer-undo-list))
- (if (eq last-command 'undo)
+ (if (eq last-command #'undo)
pending-undo-list
(consp buffer-undo-list)))
:help "Undo last operation"
- [elpa] externals/auctex updated (83403e9 -> 688349a), Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 65b8b29 02/12: Use #' instead of ' to quote function names,
Tassilo Horn <=
- [elpa] externals/auctex 7ba3caa 03/12: Remove compatibility code for Emacs<24.3, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex b587fdb 04/12: Resolve constant fboundp/boundp/featurep, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 4046481 01/12: Use closure rather than hand-made lambda, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 39699a7 05/12: Simplify conditionals evaluating to constant, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 8cdf102 07/12: ; Fix commit b587fdbeb8 for Emacs 28, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 5f79e96 08/12: Don't move past % if the current command is a non-indent command, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 953fcb7 11/12: ; Fix Xreader spelling in docstring., Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 688349a 12/12: Merge remote-tracking branch 'origin/master' into externals/auctex, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 61f508d 06/12: ; Fix doc string, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex a0b62cb 09/12: ; Fix formulation in comment, Tassilo Horn, 2021/04/17