[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 65b8b29a279e3a99297f3
|
From: |
Ikumi Keita |
|
Subject: |
[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 65b8b29a279e3a99297f3fe552d2ed14b9050e1c |
|
Date: |
Sat, 3 Apr 2021 08:32:13 -0400 (EDT) |
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 65b8b29a279e3a99297f3fe552d2ed14b9050e1c (commit)
via 4046481ae70597907ea2691ffedd15236aa9d829 (commit)
from 3750d1a6e1316ff487cbf4fdb6067d4f3ba9f10e (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 65b8b29a279e3a99297f3fe552d2ed14b9050e1c
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Date: Sun Mar 28 04:27:09 2021 +0900
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'.
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"
commit 4046481ae70597907ea2691ffedd15236aa9d829
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Date: Sun Mar 28 03:54:07 2021 +0900
Use closure rather than hand-made lambda
* latex.el (LaTeX-math-initialize):
* style/kpfonts.el (math):
* toolbar-x.el (toolbarx-make-command):
Use closure rather than hand-made lambda form.
diff --git a/latex.el b/latex.el
index 68ed0f3..ddd2968 100644
--- a/latex.el
+++ b/latex.el
@@ -5389,8 +5389,8 @@ MENU and CHARACTER, see `LaTeX-math-list' for details.")
(if (stringp value)
(progn
(setq name (intern (concat "LaTeX-math-" value)))
- (fset name (list 'lambda (list 'arg) (list 'interactive "*P")
- (list 'LaTeX-math-insert value 'arg))))
+ (fset name (lambda (arg) (interactive "*P")
+ (LaTeX-math-insert value arg))))
(setq name value))
(if key
(progn
diff --git a/style/kpfonts.el b/style/kpfonts.el
index 09ba8a2..6483b2e 100644
--- a/style/kpfonts.el
+++ b/style/kpfonts.el
@@ -463,8 +463,8 @@ the sequence by initializing this variable.")
(if (stringp value)
(progn
(setq name (intern (concat "LaTeX-kpfonts-" value)))
- (fset name (list 'lambda (list 'arg) (list 'interactive "*P")
- (list 'LaTeX-math-insert value 'arg))))
+ (fset name (lambda (arg) (interactive "*P")
+ (LaTeX-math-insert value arg))))
(setq name value))
(if key
(progn
diff --git a/toolbar-x.el b/toolbar-x.el
index 903701c..1164797 100644
--- a/toolbar-x.el
+++ b/toolbar-x.el
@@ -251,13 +251,15 @@ command, COMM is returned."
(not app)
comm-is-command)
comm
- (append '(lambda nil (interactive))
- (when prep (list prep))
- (when comm
- (if comm-is-command
- `((call-interactively (function ,comm)))
- (list comm)))
- (when app (list app))))))
+ (lambda () (interactive)
+ (let (result)
+ (when prep (setq result (eval prep t)))
+ (when comm (setq result
+ (if comm-is-command
+ (call-interactively comm)
+ (eval comm t))))
+ (when app (setq result (eval app t)))
+ result)))))
(defun toolbarx-emacs-mount-popup-menu
(strings var type &optional title save)
-----------------------------------------------------------------------
Summary of changes:
bib-cite.el | 2 +-
doc/auctex.texi | 10 +++++-----
doc/tex-ref.tex | 4 ++--
latex.el | 18 +++++++++---------
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/kpfonts.el | 4 ++--
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 | 18 ++++++++++--------
28 files changed, 117 insertions(+), 107 deletions(-)
hooks/post-receive
--
GNU AUCTeX
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [AUCTeX-diffs] GNU AUCTeX branch, master, updated. 65b8b29a279e3a99297f3fe552d2ed14b9050e1c,
Ikumi Keita <=