[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/auctex-lexbind 6e60f03 03/10: Use #' rather than ' to quo
|
From: |
Stefan Monnier |
|
Subject: |
[elpa] scratch/auctex-lexbind 6e60f03 03/10: Use #' rather than ' to quote functions |
|
Date: |
Mon, 22 Mar 2021 22:58:14 -0400 (EDT) |
branch: scratch/auctex-lexbind
commit 6e60f0329d9a027187e8258360417f974d247d31
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
Use #' rather than ' to quote functions
This helps track down typos, references to functions which don't exist
any more, as well as references to obsolete functions.
---
bib-cite.el | 28 ++++-----
context-en.el | 2 +-
context-nl.el | 2 +-
context.el | 35 ++++++------
font-latex.el | 10 ++--
latex.el | 138 ++++++++++++++++++++++-----------------------
multi-prompt.el | 4 +-
plain-tex.el | 4 +-
preview.el | 24 ++++----
style/CJK.el | 4 +-
style/array.el | 4 +-
style/babel.el | 4 +-
style/beamer.el | 14 ++---
style/biblatex.el | 14 ++---
style/dinbrief.el | 4 +-
style/dk-bib.el | 4 +-
style/doc.el | 4 +-
style/foils.el | 4 +-
style/fontenc.el | 4 +-
style/inputenc.el | 4 +-
style/jurabib.el | 4 +-
style/kpfonts.el | 4 +-
style/latexinfo.el | 14 ++---
style/ntheorem.el | 12 ++--
style/pdfsync.el | 4 +-
style/polyglossia.el | 8 +--
style/prosper.el | 4 +-
style/pst-node.el | 4 +-
style/pstricks.el | 11 ++--
style/siunitx.el | 4 +-
style/theorem.el | 6 +-
style/ulem.el | 4 +-
tex-bar.el | 8 +--
tex-buf.el | 32 +++++------
tex-fold.el | 37 ++++++------
tex-info.el | 48 ++++++++--------
tex-site.el | 6 +-
tex-style.el | 4 +-
tex-wizard.el | 12 ++--
tex.el | 156 +++++++++++++++++++++++++--------------------------
toolbar-x.el | 14 ++---
41 files changed, 352 insertions(+), 355 deletions(-)
diff --git a/bib-cite.el b/bib-cite.el
index 4e598eb..e97c15e 100644
--- a/bib-cite.el
+++ b/bib-cite.el
@@ -771,11 +771,11 @@ runs bib-find, and [mouse-3] runs bib-display."
(bib-cite-setup-highlight-mouse-keymap)
(bib-highlight-mouse)
(add-hook 'after-change-functions
- 'bib-cite-setup-mouse-function nil t))))
+ #'bib-cite-setup-mouse-function nil t))))
(t
;;;Undo the minor-mode
;; mouse overlay
- (remove-hook 'after-change-functions 'bib-cite-setup-mouse-function t)
+ (remove-hook 'after-change-functions #'bib-cite-setup-mouse-function t)
(let ((before-change-functions) (after-change-functions))
;; FIXME This detroys all mouse-faces and local-maps!
;; FIXME Hope no other package is using them in this buffer!
@@ -809,8 +809,8 @@ runs bib-find, and [mouse-3] runs bib-display."
(substitute-key-definition 'assist-key-depress-emacs19
nil m global-map))
(t ; emacs 19, not hyperbole
- (define-key m [down-mouse-3] 'bib-display-mouse)
- (define-key m [mouse-2] 'bib-find-mouse)))
+ (define-key m [down-mouse-3] #'bib-display-mouse)
+ (define-key m [mouse-2] #'bib-find-mouse)))
m)))
;;;###autoload
@@ -829,13 +829,13 @@ runs bib-find, and [mouse-3] runs bib-display."
(defvar bib-cite-minor-mode-map
(let ((map (make-sparse-keymap)))
- (define-key map "\C-cba" 'bib-apropos)
- (define-key map "\C-cbb" 'bib-make-bibliography)
- (define-key map "\C-cbd" 'bib-display)
- (define-key map "\C-cbe" 'bib-etags)
- (define-key map "\C-cbf" 'bib-find)
- (define-key map "\C-cbn" 'bib-find-next)
- (define-key map "\C-cbh" 'bib-highlight-mouse)
+ (define-key map "\C-cba" #'bib-apropos)
+ (define-key map "\C-cbb" #'bib-make-bibliography)
+ (define-key map "\C-cbd" #'bib-display)
+ (define-key map "\C-cbe" #'bib-etags)
+ (define-key map "\C-cbf" #'bib-find)
+ (define-key map "\C-cbn" #'bib-find-next)
+ (define-key map "\C-cbh" #'bib-highlight-mouse)
map)
"Bib-cite minor-mode keymap.")
@@ -1500,7 +1500,7 @@ If within a multi-file document (in auctex only)
(defvar bib-label-prompt-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map minibuffer-local-completion-map)
- (define-key map " " 'self-insert-command)
+ (define-key map " " #'self-insert-command)
map))
(defun bib-guess-or-prompt-for-label ()
@@ -1644,7 +1644,7 @@ e.g. turns
'((\"label3\" \"label4\")(\"label1\" \"label2\") \"label\")
into
'((\"label3\") (\"label4\") (\"label1\") (\"label2\") (\"label\"))"
- (mapcar 'list (bib-cite-mh-list-to-string the-list)))
+ (mapcar #'list (bib-cite-mh-list-to-string the-list)))
;;
;; Following two functions from mh-utils.el (part of GNU emacs)
@@ -2249,7 +2249,7 @@ although BiBTeX doesn't allow it!"
(skip-chars-backward ", ")
(point))))))
(setq doNext nil)))
- (mapcar 'list the-list)))))
+ (mapcar #'list the-list)))))
(defvar TeX-auto-save)
(defvar TeX-auto-regexp-list)
diff --git a/context-en.el b/context-en.el
index c545eea..d79158c 100644
--- a/context-en.el
+++ b/context-en.el
@@ -188,7 +188,7 @@ That is, besides the section(-block) commands.")
(defun ConTeXt-en-mode-initialization ()
"ConTeXt english interface specific initialization."
- (mapc 'ConTeXt-add-environments (reverse ConTeXt-environment-list-en))
+ (mapc #'ConTeXt-add-environments (reverse ConTeXt-environment-list-en))
(TeX-add-symbols
'("but" ConTeXt-arg-define-ref (TeX-arg-literal " "))
diff --git a/context-nl.el b/context-nl.el
index 55fcb09..5be65f6 100644
--- a/context-nl.el
+++ b/context-nl.el
@@ -163,7 +163,7 @@ That is, besides the section(-block) commands.")
(defun ConTeXt-nl-mode-initialization ()
"ConTeXt dutch interface specific initialization."
- (mapc 'ConTeXt-add-environments (reverse ConTeXt-environment-list-nl))
+ (mapc #'ConTeXt-add-environments (reverse ConTeXt-environment-list-nl))
(TeX-add-symbols
'("but" ConTeXt-arg-define-ref (TeX-arg-literal " "))
diff --git a/context.el b/context.el
index 3e29f5a..9219a95 100644
--- a/context.el
+++ b/context.el
@@ -1,7 +1,6 @@
;;; context.el --- Support for ConTeXt documents. -*- lexical-binding: t; -*-
-;; Copyright (C) 2003-2006, 2008, 2010, 2012, 2014-2020
-;; Free Software Foundation, Inc.
+;; Copyright (C) 2003-2021 Free Software Foundation, Inc.
;; Maintainer: Berend de Boer <berend@pobox.com>
;; Keywords: tex
@@ -506,7 +505,7 @@ in your .emacs file."
:type 'string
:group 'TeX-command)
(make-variable-buffer-local 'ConTeXt-Mark-version)
-(put 'ConTeXt-Mark-version 'safe-local-variable 'stringp)
+(put 'ConTeXt-Mark-version 'safe-local-variable #'stringp)
(defun ConTeXt-numbered-section-heading ()
"Hook to prompt for ConTeXt section name.
@@ -1310,18 +1309,18 @@ else. There might be text before point."
(let ((map (make-sparse-keymap)))
(set-keymap-parent map TeX-mode-map)
- (define-key map "\e\C-a" 'ConTeXt-find-matching-start)
- (define-key map "\e\C-e" 'ConTeXt-find-matching-stop)
+ (define-key map "\e\C-a" #'ConTeXt-find-matching-start)
+ (define-key map "\e\C-e" #'ConTeXt-find-matching-stop)
;; likely to change in the future
- (define-key map "\C-c!" 'ConTeXt-work-on-environment)
- (define-key map "\C-c\C-e" 'ConTeXt-environment)
- (define-key map "\C-c\n" 'ConTeXt-insert-item)
+ (define-key map "\C-c!" #'ConTeXt-work-on-environment)
+ (define-key map "\C-c\C-e" #'ConTeXt-environment)
+ (define-key map "\C-c\n" #'ConTeXt-insert-item)
(or (key-binding "\e\r")
- (define-key map "\e\r" 'ConTeXt-insert-item)) ;*** Alias
- (define-key map "\C-c]" 'ConTeXt-close-environment)
- (define-key map "\C-c\C-s" 'ConTeXt-section)
+ (define-key map "\e\r" #'ConTeXt-insert-item)) ;*** Alias
+ (define-key map "\C-c]" #'ConTeXt-close-environment)
+ (define-key map "\C-c\C-s" #'ConTeXt-section)
;; XML in ConTeXt support
- (define-key map "\C-c/" 'ConTeXt-close-xml-tag)
+ (define-key map "\C-c/" #'ConTeXt-close-xml-tag)
map)
"Keymap used in `ConTeXt-mode'.")
@@ -1741,7 +1740,7 @@ i.e. you do _not_ have to cater for this yourself by
adding \\\\' or $."
(use-local-map ConTeXt-mode-map)
;; Indenting
- (set (make-local-variable 'indent-line-function) 'ConTeXt-indent-line)
+ (set (make-local-variable 'indent-line-function) #'ConTeXt-indent-line)
(set (make-local-variable 'fill-indent-according-to-mode) t)
;; Paragraph formatting
@@ -1749,7 +1748,7 @@ i.e. you do _not_ have to cater for this yourself by
adding \\\\' or $."
(set (make-local-variable 'LaTeX-paragraph-commands-regexp)
(ConTeXt-paragraph-commands-regexp))
(set (make-local-variable 'paragraph-ignore-fill-prefix) t)
- (set (make-local-variable 'fill-paragraph-function) 'LaTeX-fill-paragraph)
+ (set (make-local-variable 'fill-paragraph-function) #'LaTeX-fill-paragraph)
(set (make-local-variable 'adaptive-fill-mode) nil)
(setq paragraph-start
(concat
@@ -1771,7 +1770,7 @@ i.e. you do _not_ have to cater for this yourself by
adding \\\\' or $."
(if (fboundp 'make-local-hook)
(make-local-hook 'activate-menubar-hook))
- (add-hook 'activate-menubar-hook 'ConTeXt-menu-update nil t)
+ (add-hook 'activate-menubar-hook #'ConTeXt-menu-update nil t)
;; Outline support
(require 'outline)
@@ -1786,11 +1785,11 @@ i.e. you do _not_ have to cater for this yourself by
adding \\\\' or $."
;; imenu support
(set (make-local-variable 'imenu-create-index-function)
- 'ConTeXt-imenu-create-index-function)
+ #'ConTeXt-imenu-create-index-function)
;; run hooks
(setq TeX-command-default "ConTeXt")
- (setq TeX-sentinel-default-function 'TeX-ConTeXt-sentinel)
+ (setq TeX-sentinel-default-function #'TeX-ConTeXt-sentinel)
(run-mode-hooks 'text-mode-hook 'TeX-mode-hook 'ConTeXt-mode-hook))
(defun context-guess-current-interface ()
@@ -1811,7 +1810,7 @@ i.e. you do _not_ have to cater for this yourself by
adding \\\\' or $."
ConTeXt-default-interface)))))
;;;###autoload
-(defalias 'ConTeXt-mode 'context-mode)
+(defalias 'ConTeXt-mode #'context-mode)
;;;###autoload
(defun context-mode ()
diff --git a/font-latex.el b/font-latex.el
index 1e9e6be..12da6e8 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -140,7 +140,7 @@ correct value from document properties."
font-latex-quotes)))
;; Update the value of `font-latex-quotes-internal' when the list of
;; styles changes.
-(add-hook 'TeX-update-style-hook 'font-latex-quotes-set-internal)
+(add-hook 'TeX-update-style-hook #'font-latex-quotes-set-internal)
;; The definitions of the title faces were originally taken from
;; info.el (Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99,
@@ -180,7 +180,7 @@ effect unless you call \\[font-lock-fontify-buffer] or
restart
Emacs."
:type '(choice (number :tag "Scale factor")
(const color))
- :initialize 'custom-initialize-default
+ :initialize #'custom-initialize-default
:set (lambda (symbol value)
(set-default symbol value)
(unless (eq value 'color)
@@ -469,7 +469,7 @@ You have to restart Emacs for a change of this variable to
take effect."
;; Name of the keyword class
(let ((name (split-string (car spec) "-")))
(setcar name (capitalize (car name)))
- (mapconcat 'identity name " "))
+ (mapconcat #'identity name " "))
" keywords in `"
;; Name of the face
(symbol-name
@@ -799,7 +799,7 @@ Generated by `font-latex-user-keyword-classes'"))))
(let ((keywords (nth 1 elt))
single-char-macro-flag)
(setq keywords (if (listp (car keywords))
- (mapcar 'car keywords)
+ (mapcar #'car keywords)
keywords))
(catch 'single-char
(dolist (keyword keywords)
@@ -2001,7 +2001,7 @@ Take into account $...$, $$...$$, \\(...\\) and
\\=\\[...\\], too."
font-latex-quotes-internal)))
(setq tail (cdr tail))))
(setq font-latex-quote-regexp-beg
- (regexp-opt (mapcar 'car font-latex-quote-list) t))))
+ (regexp-opt (mapcar #'car font-latex-quote-list) t))))
(defun font-latex-match-quotation (limit)
"Match quote patterns up to LIMIT.
diff --git a/latex.el b/latex.el
index d5d5621..b1fb433 100644
--- a/latex.el
+++ b/latex.el
@@ -289,12 +289,12 @@ header is at the start of a line."
"[ \t]*"
(regexp-quote TeX-esc)
"\\(appendix\\|documentstyle\\|documentclass\\|"
- (mapconcat 'car LaTeX-section-list "\\|")
+ (mapconcat #'car LaTeX-section-list "\\|")
"\\)\\b"
(if TeX-outline-extra
"\\|"
"")
- (mapconcat 'car TeX-outline-extra "\\|")
+ (mapconcat #'car TeX-outline-extra "\\|")
"\\|" TeX-header-end
"\\|" TeX-trailer-start))
@@ -1749,7 +1749,7 @@ Split the string at commas and remove Biber file
extensions."
LaTeX-auto-style nil
LaTeX-auto-end-symbol nil))
-(add-hook 'TeX-auto-prepare-hook 'LaTeX-auto-prepare)
+(add-hook 'TeX-auto-prepare-hook #'LaTeX-auto-prepare)
(defun LaTeX-listify-package-options (options)
"Return a list from a comma-separated string of package OPTIONS.
@@ -1838,9 +1838,9 @@ The value is actually the tail of the list of options
given to PACKAGE."
;; Cleanup BibTeX/Biber files
(setq LaTeX-auto-bibliography
- (apply 'append (mapcar (lambda (arg)
- (TeX-split-string "," arg))
- LaTeX-auto-bibliography)))
+ (apply #'append (mapcar (lambda (arg)
+ (TeX-split-string "," arg))
+ LaTeX-auto-bibliography)))
;; Reset class and packages options for the current buffer
(setq LaTeX-provided-class-options nil)
@@ -1963,11 +1963,11 @@ The value is actually the tail of the list of options
given to PACKAGE."
(add-to-list 'LaTeX-auto-environment symbol)))
LaTeX-auto-end-symbol))
-(add-hook 'TeX-auto-cleanup-hook 'LaTeX-auto-cleanup)
+(add-hook 'TeX-auto-cleanup-hook #'LaTeX-auto-cleanup)
(defadvice LaTeX-add-bibliographies (after run-bib-style-hooks (&rest
bibliographies) activate)
"Add BIBLIOGRAPHIES to the list of known bibliographies and style files."
- (apply 'TeX-run-style-hooks bibliographies))
+ (apply #'TeX-run-style-hooks bibliographies))
;;; Biber support
@@ -2099,7 +2099,7 @@ string. ARGS is unused."
(LaTeX-add-index-entries entry))
(TeX-argument-insert entry optional optional)))
-(defalias 'TeX-arg-define-index 'TeX-arg-index)
+(defalias 'TeX-arg-define-index #'TeX-arg-index)
(defun TeX-arg-macro (optional &optional prompt definition)
"Prompt for a TeX macro with completion.
@@ -2138,8 +2138,8 @@ argument, otherwise as a mandatory one. Use PROMPT as
the prompt
string. DEFINITION is unused."
(let ((items (multi-prompt "," t (TeX-argument-prompt optional prompt "Key")
(LaTeX-bibitem-list))))
- (apply 'LaTeX-add-bibitems items)
- (TeX-argument-insert (mapconcat 'identity items ",") optional optional)))
+ (apply #'LaTeX-add-bibitems items)
+ (TeX-argument-insert (mapconcat #'identity items ",") optional optional)))
(defun TeX-arg-counter (optional &optional prompt definition)
"Prompt for a LaTeX counter.
@@ -2387,10 +2387,10 @@ OPTIONAL and IGNORE are ignored."
(setq options (funcall var))
(when (symbol-value var)
(setq options
- (mapconcat 'identity
+ (mapconcat #'identity
(TeX-completing-read-multiple
- optprmpt (mapcar 'list (symbol-value var)) nil
nil
- nil nil defopt)
+ optprmpt (mapcar #'list (symbol-value var))
+ nil nil nil nil defopt)
","))))
(setq options (TeX-read-string optprmpt nil nil defopt)))
(unless (zerop (length options))
@@ -2429,7 +2429,7 @@ of the options, nil otherwise."
(progn
(message "Searching for LaTeX packages...")
(setq TeX-global-input-files
- (mapcar 'list (TeX-search-files-by-type
+ (mapcar #'list (TeX-search-files-by-type
'texinputs 'global t t)))
(message "Searching for LaTeX packages...done"))))
(setq packages (TeX-completing-read-multiple
@@ -2454,9 +2454,9 @@ of the options, nil otherwise."
(setq options (funcall var))
(when (symbol-value var)
(setq options
- (mapconcat 'identity
+ (mapconcat #'identity
(TeX-completing-read-multiple
- "Options: " (mapcar 'list (symbol-value var)))
+ "Options: " (mapcar #'list (symbol-value var)))
","))))
(setq options (TeX-read-string "Options: ")))
(cons packages options))))
@@ -2470,7 +2470,7 @@ of the options, nil otherwise."
(list (cons elt opts))))
packages))
(insert LaTeX-optop options LaTeX-optcl))
- (insert TeX-grop (mapconcat 'identity packages ",") TeX-grcl)
+ (insert TeX-grop (mapconcat #'identity packages ",") TeX-grcl)
(run-hooks 'LaTeX-after-usepackage-hook)
(apply #'TeX-run-style-hooks packages))
@@ -2546,13 +2546,13 @@ files."
(unless (or TeX-global-input-files local)
(message "Searching for files...")
(setq TeX-global-input-files
- (mapcar 'list (TeX-search-files-by-type
+ (mapcar #'list (TeX-search-files-by-type
'texinputs 'global t t)))
(message "Searching for files...done"))
(setq file (completing-read
(TeX-argument-prompt optional prompt "File")
(TeX-delete-dups-by-car
- (append (mapcar 'list (TeX-search-files-by-type
+ (append (mapcar #'list (TeX-search-files-by-type
'texinputs 'local t t))
(unless local
TeX-global-input-files))))
@@ -2586,11 +2586,11 @@ string."
(message "Searching for BibTeX styles...")
(or BibTeX-global-style-files
(setq BibTeX-global-style-files
- (mapcar 'list (TeX-search-files-by-type 'bstinputs 'global t t))))
+ (mapcar #'list (TeX-search-files-by-type 'bstinputs 'global t t))))
(message "Searching for BibTeX styles...done")
(TeX-argument-insert
(completing-read (TeX-argument-prompt optional prompt "BibTeX style")
- (append (mapcar 'list (TeX-search-files-by-type
+ (append (mapcar #'list (TeX-search-files-by-type
'bstinputs 'local t t))
BibTeX-global-style-files))
optional))
@@ -2615,19 +2615,19 @@ string."
(message "Searching for BibTeX files...")
(or BibTeX-global-files
(setq BibTeX-global-files
- (mapcar 'list (TeX-search-files-by-type 'bibinputs 'global t t))))
+ (mapcar #'list (TeX-search-files-by-type 'bibinputs 'global t t))))
(message "Searching for BibTeX files...done")
(let ((styles (multi-prompt
"," t
(TeX-argument-prompt optional prompt "BibTeX files")
- (append (mapcar 'list (TeX-search-files-by-type
- 'bibinputs 'local t t))
+ (append (mapcar #'list (TeX-search-files-by-type
+ 'bibinputs 'local t t))
BibTeX-global-files))))
- (apply 'LaTeX-add-bibliographies styles)
+ (apply #'LaTeX-add-bibliographies styles)
;; Run style files associated to the bibliography database files in order
to
;; immediately fill `LaTeX-bibitem-list'.
- (mapc 'TeX-run-style-hooks styles)
- (TeX-argument-insert (mapconcat 'identity styles ",") optional)))
+ (mapc #'TeX-run-style-hooks styles)
+ (TeX-argument-insert (mapconcat #'identity styles ",") optional)))
(defun TeX-arg-corner (optional &optional prompt)
"Prompt for a LaTeX side or corner position with completion.
@@ -4801,7 +4801,7 @@ usually used in the Emacs and Elisp manuals.
Setting this variable directly does not take effect;
use \\[customize]."
:group 'LaTeX-math
- :initialize 'custom-initialize-default
+ :initialize #'custom-initialize-default
:set '(lambda (symbol value)
(define-key LaTeX-math-mode-map (LaTeX-math-abbrev-prefix) t)
(set-default symbol value)
@@ -5420,7 +5420,7 @@ MENU and CHARACTER, see `LaTeX-math-list' for details.")
(cdr parent)))))))))
;; Make the math prefix char available if it has not been used as a prefix.
(unless (lookup-key map (LaTeX-math-abbrev-prefix))
- (define-key map (LaTeX-math-abbrev-prefix) 'self-insert-command))))
+ (define-key map (LaTeX-math-abbrev-prefix) #'self-insert-command))))
(defcustom LaTeX-math-list nil
"Alist of your personal LaTeX math symbols.
@@ -5479,7 +5479,7 @@ commands are defined:
(easy-menu-add LaTeX-math-mode-menu LaTeX-math-mode-map)
(easy-menu-remove LaTeX-math-mode-menu))
(TeX-set-mode-name))
-(defalias 'latex-math-mode 'LaTeX-math-mode)
+(defalias 'latex-math-mode #'LaTeX-math-mode)
(easy-menu-define LaTeX-math-mode-menu
LaTeX-math-mode-map
@@ -5602,40 +5602,40 @@ environments."
(set-keymap-parent map TeX-mode-map)
;; Standard
- (define-key map "\n" 'reindent-then-newline-and-indent)
+ (define-key map "\n" #'reindent-then-newline-and-indent)
;; From latex.el
;; We now set `fill-paragraph-function' instead.
;; (define-key map "\eq" 'LaTeX-fill-paragraph) ;*** Alias
;; This key is now used by Emacs for face settings.
;; (define-key map "\eg" 'LaTeX-fill-region) ;*** Alias
- (define-key map "\e\C-e" 'LaTeX-find-matching-end)
- (define-key map "\e\C-a" 'LaTeX-find-matching-begin)
+ (define-key map "\e\C-e" #'LaTeX-find-matching-end)
+ (define-key map "\e\C-a" #'LaTeX-find-matching-begin)
- (define-key map "\C-c\C-q\C-p" 'LaTeX-fill-paragraph)
- (define-key map "\C-c\C-q\C-r" 'LaTeX-fill-region)
- (define-key map "\C-c\C-q\C-s" 'LaTeX-fill-section)
- (define-key map "\C-c\C-q\C-e" 'LaTeX-fill-environment)
+ (define-key map "\C-c\C-q\C-p" #'LaTeX-fill-paragraph)
+ (define-key map "\C-c\C-q\C-r" #'LaTeX-fill-region)
+ (define-key map "\C-c\C-q\C-s" #'LaTeX-fill-section)
+ (define-key map "\C-c\C-q\C-e" #'LaTeX-fill-environment)
- (define-key map "\C-c\C-z" 'LaTeX-command-section)
- (define-key map "\C-c\M-z" 'LaTeX-command-section-change-level)
+ (define-key map "\C-c\C-z" #'LaTeX-command-section)
+ (define-key map "\C-c\M-z" #'LaTeX-command-section-change-level)
- (define-key map "\C-c." 'LaTeX-mark-environment) ;*** Dubious
- (define-key map "\C-c*" 'LaTeX-mark-section) ;*** Dubious
+ (define-key map "\C-c." #'LaTeX-mark-environment) ;*** Dubious
+ (define-key map "\C-c*" #'LaTeX-mark-section) ;*** Dubious
- (define-key map "\C-c\C-e" 'LaTeX-environment)
- (define-key map "\C-c\n" 'LaTeX-insert-item)
+ (define-key map "\C-c\C-e" #'LaTeX-environment)
+ (define-key map "\C-c\n" #'LaTeX-insert-item)
(or (key-binding "\e\r")
- (define-key map "\e\r" 'LaTeX-insert-item)) ;*** Alias
- (define-key map "\C-c]" 'LaTeX-close-environment)
- (define-key map "\C-c\C-s" 'LaTeX-section)
+ (define-key map "\e\r" #'LaTeX-insert-item)) ;*** Alias
+ (define-key map "\C-c]" #'LaTeX-close-environment)
+ (define-key map "\C-c\C-s" #'LaTeX-section)
- (define-key map "\C-c~" 'LaTeX-math-mode) ;*** Dubious
+ (define-key map "\C-c~" #'LaTeX-math-mode) ;*** Dubious
- (define-key map "-" 'LaTeX-babel-insert-hyphen)
- (define-key map "(" 'LaTeX-insert-left-brace)
- (define-key map "{" 'LaTeX-insert-left-brace)
- (define-key map "[" 'LaTeX-insert-left-brace)
+ (define-key map "-" #'LaTeX-babel-insert-hyphen)
+ (define-key map "(" #'LaTeX-insert-left-brace)
+ (define-key map "{" #'LaTeX-insert-left-brace)
+ (define-key map "[" #'LaTeX-insert-left-brace)
map)
"Keymap used in `LaTeX-mode'.")
@@ -5736,9 +5736,9 @@ The argument IGNORED is not used in any way."
(or LaTeX-section-menu
(progn
(setq LaTeX-section-list-changed nil)
- (mapc 'LaTeX-section-enable LaTeX-section-list)
+ (mapc #'LaTeX-section-enable LaTeX-section-list)
(setq LaTeX-section-menu
- (mapcar 'LaTeX-section-menu-entry LaTeX-section-list)))))
+ (mapcar #'LaTeX-section-menu-entry LaTeX-section-list)))))
(defvar LaTeX-environment-menu nil)
(make-variable-buffer-local 'LaTeX-environment-menu)
@@ -5755,13 +5755,13 @@ corresponds to the variables
`LaTeX-environment-menu-name' and
(or LaTeX-environment-menu
(setq LaTeX-environment-menu
(LaTeX-split-long-menu
- (mapcar 'LaTeX-environment-menu-entry
+ (mapcar #'LaTeX-environment-menu-entry
(LaTeX-environment-list))))))
((string= menu LaTeX-environment-modify-menu-name)
(or LaTeX-environment-modify-menu
(setq LaTeX-environment-modify-menu
(LaTeX-split-long-menu
- (mapcar 'LaTeX-environment-modify-menu-entry
+ (mapcar #'LaTeX-environment-modify-menu-entry
(LaTeX-environment-list))))))))
(defadvice LaTeX-add-environments (after LaTeX-invalidate-environment-menu
(&rest environments) activate)
@@ -6073,8 +6073,8 @@ of `LaTeX-mode-hook'."
(setq TeX-base-mode-name "LaTeX")
(setq major-mode 'latex-mode)
(setq TeX-command-default "LaTeX")
- (setq TeX-sentinel-default-function 'TeX-LaTeX-sentinel)
- (add-hook 'tool-bar-mode-on-hook 'LaTeX-maybe-install-toolbar nil t)
+ (setq TeX-sentinel-default-function #'TeX-LaTeX-sentinel)
+ (add-hook 'tool-bar-mode-on-hook #'LaTeX-maybe-install-toolbar nil t)
(when (and (boundp 'tool-bar-mode) tool-bar-mode)
(LaTeX-maybe-install-toolbar))
;; Set the value of `LaTeX-using-Biber' based on the local value of
@@ -6107,7 +6107,7 @@ of `LaTeX-mode-hook'."
(turn-off-filladapt-mode))
(when (< 25 emacs-major-version)
;; Set up flymake backend, see latex-flymake.el
- (add-hook 'flymake-diagnostic-functions 'LaTeX-flymake nil t)))
+ (add-hook 'flymake-diagnostic-functions #'LaTeX-flymake nil t)))
(TeX-abbrev-mode-setup doctex-mode)
@@ -6142,7 +6142,7 @@ runs the hooks in `docTeX-mode-hook'."
;;disabled) as would be normal for our scheme.
;;;###autoload
-(defalias 'TeX-doctex-mode 'docTeX-mode)
+(defalias 'TeX-doctex-mode #'docTeX-mode)
(defcustom docTeX-clean-intermediate-suffixes
TeX-clean-default-intermediate-suffixes
@@ -6191,13 +6191,13 @@ function would return non-nil and `(match-string 1)'
would return
"Common initialization for LaTeX derived modes."
(VirTeX-common-initialization)
(set-syntax-table LaTeX-mode-syntax-table)
- (set (make-local-variable 'indent-line-function) 'LaTeX-indent-line)
+ (set (make-local-variable 'indent-line-function) #'LaTeX-indent-line)
(setq local-abbrev-table latex-mode-abbrev-table)
;; Filling
(set (make-local-variable 'paragraph-ignore-fill-prefix) t)
- (set (make-local-variable 'fill-paragraph-function) 'LaTeX-fill-paragraph)
+ (set (make-local-variable 'fill-paragraph-function) #'LaTeX-fill-paragraph)
(set (make-local-variable 'adaptive-fill-mode) nil)
(or LaTeX-largest-level
@@ -6208,7 +6208,7 @@ function would return non-nil and `(match-string 1)'
would return
(set (make-local-variable 'TeX-style-hook-dialect) TeX-dialect)
(require 'outline)
- (set (make-local-variable 'outline-level) 'LaTeX-outline-level)
+ (set (make-local-variable 'outline-level) #'LaTeX-outline-level)
(set (make-local-variable 'outline-regexp) (LaTeX-outline-regexp t))
(when (boundp 'outline-heading-alist)
(setq outline-heading-alist
@@ -6230,9 +6230,9 @@ function would return non-nil and `(match-string 1)'
would return
"\\$\\$" ; Plain TeX display math
"\\|$\\)"))
- (setq TeX-verbatim-p-function 'LaTeX-verbatim-p)
+ (setq TeX-verbatim-p-function #'LaTeX-verbatim-p)
(setq TeX-search-forward-comment-start-function
- 'LaTeX-search-forward-comment-start)
+ #'LaTeX-search-forward-comment-start)
(set (make-local-variable 'TeX-search-files-type-alist)
LaTeX-search-files-type-alist)
@@ -6715,7 +6715,7 @@ function would return non-nil and `(match-string 1)'
would return
(if (string-equal LaTeX-version "2")
()
(setq TeX-font-list LaTeX-font-list)
- (setq TeX-font-replace-function 'TeX-font-replace-macro)
+ (setq TeX-font-replace-function #'TeX-font-replace-macro)
(TeX-add-symbols
'("newcommand" TeX-arg-define-macro
[ TeX-arg-define-macro-arguments ] t)
@@ -6750,7 +6750,7 @@ function would return non-nil and `(match-string 1)'
would return
;; Use new fonts for `\documentclass' documents.
(lambda ()
(setq TeX-font-list LaTeX-font-list)
- (setq TeX-font-replace-function
'TeX-font-replace-macro)
+ (setq TeX-font-replace-function
#'TeX-font-replace-macro)
(run-hooks 'LaTeX2e-hook))
TeX-dialect)
@@ -6800,7 +6800,7 @@ function would return non-nil and `(match-string 1)'
would return
;; user overrode it.
(set (make-local-variable 'imenu-create-index-function)
- 'LaTeX-imenu-create-index-function)
+ #'LaTeX-imenu-create-index-function)
(use-local-map LaTeX-mode-map)
@@ -6811,7 +6811,7 @@ function would return non-nil and `(match-string 1)'
would return
(easy-menu-add LaTeX-mode-menu LaTeX-mode-map)
(easy-menu-add LaTeX-mode-command-menu LaTeX-mode-map)
- (define-key LaTeX-mode-map "\C-xne" 'LaTeX-narrow-to-environment)
+ (define-key LaTeX-mode-map "\C-xne" #'LaTeX-narrow-to-environment)
;; AUCTeX's brace pairing feature (`LaTeX-electric-left-right-brace') doesn't
;; play nice with `electric-pair-mode' which is a global minor mode as of
diff --git a/multi-prompt.el b/multi-prompt.el
index 9f5729e..884eddc 100644
--- a/multi-prompt.el
+++ b/multi-prompt.el
@@ -1,6 +1,6 @@
;;; multi-prompt.el --- Completing read of multiple strings
-;; Copyright (C) 1996-2019 Free Software Foundation, Inc.
+;; Copyright (C) 1996-2021 Free Software Foundation, Inc.
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Maintainer: auctex-devel@gnu.org
@@ -56,7 +56,7 @@ are the arguments to `completing-read'. See that."
(define-key new-map separator (if require-match
'multi-prompt-next-must-match
'multi-prompt-next))
- (define-key new-map "\C-?" 'multi-prompt-delete)
+ (define-key new-map "\C-?" #'multi-prompt-delete)
(let* ((minibuffer-local-completion-map new-map)
(minibuffer-local-must-match-map new-map)
(multi-prompt-found nil)
diff --git a/plain-tex.el b/plain-tex.el
index 9fd0fad..93bc1ed 100644
--- a/plain-tex.el
+++ b/plain-tex.el
@@ -134,8 +134,8 @@ of `plain-TeX-mode-hook'."
(easy-menu-add plain-TeX-mode-command-menu plain-TeX-mode-map)
(setq TeX-base-mode-name "TeX")
(setq TeX-command-default "TeX")
- (setq TeX-sentinel-default-function 'TeX-TeX-sentinel)
- (add-hook 'tool-bar-mode-on-hook 'plain-TeX-maybe-install-toolbar nil t)
+ (setq TeX-sentinel-default-function #'TeX-TeX-sentinel)
+ (add-hook 'tool-bar-mode-on-hook #'plain-TeX-maybe-install-toolbar nil t)
(when (and (boundp 'tool-bar-mode) tool-bar-mode)
(plain-TeX-maybe-install-toolbar))
(run-mode-hooks 'text-mode-hook 'TeX-mode-hook 'plain-TeX-mode-hook)
diff --git a/preview.el b/preview.el
index f218b06..68dd2bb 100644
--- a/preview.el
+++ b/preview.el
@@ -950,7 +950,7 @@ Pure borderless black-on-white will return an empty string."
(file-error nil)))
(setq TeX-sentinel-function nil))
-(defalias 'preview-dvipng-abort 'preview-dvips-abort)
+(defalias 'preview-dvipng-abort #'preview-dvips-abort)
; "Abort a DviPNG run.")
(defun preview-gs-dvips-sentinel (process _command &optional gsstart)
@@ -1033,8 +1033,8 @@ The usual PROCESS and COMMAND arguments for
(setq TeX-sentinel-function
`(lambda (process command)
(,(if preview-parsed-pdfoutput
- 'preview-pdf2dsc-sentinel
- 'preview-gs-dvips-sentinel)
+ #'preview-pdf2dsc-sentinel
+ #'preview-gs-dvips-sentinel)
process
command
t))))
@@ -1968,7 +1968,7 @@ purposes."
(setcdr strings (preview-inactive-string ov)))
(overlay-put ov 'before-string (cdr strings)))
(if old-urgent
- (apply 'preview-add-urgentization old-urgent))))
+ (apply #'preview-add-urgentization old-urgent))))
(if event
(preview-restore-position
ov
@@ -3721,8 +3721,8 @@ The fourth value is the transparent border thickness."
(if TeX-after-start-process-function
(funcall TeX-after-start-process-function process))
(TeX-command-mode-line process)
- (set-process-filter process 'TeX-command-filter)
- (set-process-sentinel process 'TeX-command-sentinel)
+ (set-process-filter process #'TeX-command-filter)
+ (set-process-sentinel process #'TeX-command-sentinel)
(set-marker (process-mark process) (point-max))
(push process compilation-in-progress)
(sit-for 0)
@@ -3763,8 +3763,8 @@ If FAST is set, do a fast conversion."
(if TeX-after-start-process-function
(funcall TeX-after-start-process-function process))
(TeX-command-mode-line process)
- (set-process-filter process 'TeX-command-filter)
- (set-process-sentinel process 'TeX-command-sentinel)
+ (set-process-filter process #'TeX-command-filter)
+ (set-process-sentinel process #'TeX-command-sentinel)
(set-marker (process-mark process) (point-max))
(push process compilation-in-progress)
(sit-for 0)
@@ -3805,8 +3805,8 @@ If FAST is set, do a fast conversion."
(if TeX-after-start-process-function
(funcall TeX-after-start-process-function process))
(TeX-command-mode-line process)
- (set-process-filter process 'TeX-command-filter)
- (set-process-sentinel process 'TeX-command-sentinel)
+ (set-process-filter process #'TeX-command-filter)
+ (set-process-sentinel process #'TeX-command-sentinel)
(set-marker (process-mark process) (point-max))
(push process compilation-in-progress)
(sit-for 0)
@@ -4193,9 +4193,9 @@ internal parameters, STR may be a log to insert into the
current log."
(set-marker (process-mark process) (point)))))
(preview-set-geometry geometry)
(setq preview-gs-file pr-file)
- (setq TeX-sentinel-function 'preview-TeX-inline-sentinel)
+ (setq TeX-sentinel-function #'preview-TeX-inline-sentinel)
(TeX-parse-reset)
- (setq TeX-parse-function 'TeX-parse-TeX)
+ (setq TeX-parse-function #'TeX-parse-TeX)
(if TeX-process-asynchronous
process
(TeX-synchronous-sentinel "Preview-LaTeX" file process)))
diff --git a/style/CJK.el b/style/CJK.el
index 446e431..baee5d9 100644
--- a/style/CJK.el
+++ b/style/CJK.el
@@ -1,6 +1,6 @@
;;; CJK.el --- AUCTeX style for the CJK package. -*- lexical-binding: t; -*-
-;; Copyright (C) 2009, 2014, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2021 Free Software Foundation, Inc.
;; Author: Ralf Angeli <angeli@caeruleus.net>
;; Maintainer: auctex-devel@gnu.org
@@ -52,7 +52,7 @@ The function can be used for CJK and CJK* environments."
(let ((font-enc (TeX-read-string "(Optional) Font encoding: ")))
(unless (zerop (length font-enc)) (format "[%s]" font-enc)))
(format "{%s}" (completing-read "Encoding: "
- (mapcar 'list LaTeX-CJK-enc-list)))
+ (mapcar #'list LaTeX-CJK-enc-list)))
(format "{%s}" (TeX-read-string "Font family: ")))))
(TeX-add-style-hook
diff --git a/style/array.el b/style/array.el
index b944103..be7baf3 100644
--- a/style/array.el
+++ b/style/array.el
@@ -1,6 +1,6 @@
;;; array.el --- AUCTeX style for `array.sty' -*- lexical-binding: t; -*-
-;; Copyright (C) 2013, 2015, 2018--2020 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2021 Free Software Foundation, Inc.
;; Author: Mads Jensen <mje@inducks.org>
;; Maintainer: auctex-devel@gnu.org
@@ -59,7 +59,7 @@ package.")
"Update and uniquify the value of `LaTeX-array-column-letters'
and make it buffer local. "
(set (make-local-variable 'LaTeX-array-column-letters)
- (mapconcat 'identity
+ (mapconcat #'identity
(TeX-delete-duplicate-strings
(split-string
(concat LaTeX-array-column-letters
diff --git a/style/babel.el b/style/babel.el
index e8f792c..548f2c8 100644
--- a/style/babel.el
+++ b/style/babel.el
@@ -1,6 +1,6 @@
;;; babel.el --- AUCTeX style for `babel.sty' version 3.31. -*-
lexical-binding: t; -*-
-;; Copyright (C) 2005, 2007, 2013-2020 Free Software Foundation, Inc.
+;; Copyright (C) 2005-2021 Free Software Foundation, Inc.
;; Author: Ralf Angeli <angeli@iwi.uni-sb.de>
;; Maintainer: auctex-devel@gnu.org
@@ -253,7 +253,7 @@
"babel"
(lambda ()
(LaTeX-babel-load-languages)
- (add-hook 'LaTeX-after-usepackage-hook 'LaTeX-babel-load-languages nil t)
+ (add-hook 'LaTeX-after-usepackage-hook #'LaTeX-babel-load-languages nil t)
;; Add babel to the parser.
(TeX-auto-add-regexp LaTeX-babel-babeltags-regexp)
diff --git a/style/beamer.el b/style/beamer.el
index ea9ed4e..7c80ce8 100644
--- a/style/beamer.el
+++ b/style/beamer.el
@@ -1,6 +1,6 @@
;;; beamer.el --- AUCTeX style for the latex-beamer class -*-
lexical-binding: t; -*-
-;; Copyright (C) 2003-2005, 2008, 2013-2016, 2018, 2020 Free Software
Foundation, Inc.
+;; Copyright (C) 2003-2021 Free Software Foundation, Inc.
;; Author: Thomas Baumann <thomas.baumann@ch.tum.de>
;; Created: 2003-12-20
@@ -65,7 +65,7 @@
(TeX-add-style-hook
"beamer"
(lambda ()
- (add-hook 'LaTeX-after-insert-env-hook 'LaTeX-beamer-after-insert-env nil t)
+ (add-hook 'LaTeX-after-insert-env-hook #'LaTeX-beamer-after-insert-env nil
t)
(TeX-run-style-hooks "amsmath" "amssymb" "amsthm" "color" "geometry"
"hyperref" "inputenc" "translator" "xcolor")
@@ -269,7 +269,7 @@ also be a string. Then the length of the string is used."
(TeX-argument-insert
(completing-read
(TeX-argument-prompt nil nil "Theme")
- (mapcar 'list
+ (mapcar #'list
(cond ((eq LaTeX-beamer-themes 'local)
(set (make-local-variable 'LaTeX-beamer-themes)
(LaTeX-beamer-search-themes)))
@@ -288,7 +288,7 @@ also be a string. Then the length of the string is used."
(TeX-argument-insert
(completing-read
(TeX-argument-prompt nil nil "Theme")
- (mapcar 'list
+ (mapcar #'list
(cond ((eq LaTeX-beamer-inner-themes 'local)
(set (make-local-variable 'LaTeX-beamer-inner-themes)
(LaTeX-beamer-search-themes "^beamerinnertheme")))
@@ -307,7 +307,7 @@ also be a string. Then the length of the string is used."
(TeX-argument-insert
(completing-read
(TeX-argument-prompt nil nil "Theme")
- (mapcar 'list
+ (mapcar #'list
(cond ((eq LaTeX-beamer-outer-themes 'local)
(set (make-local-variable 'LaTeX-beamer-outer-themes)
(LaTeX-beamer-search-themes "^beameroutertheme")))
@@ -326,7 +326,7 @@ also be a string. Then the length of the string is used."
(TeX-argument-insert
(completing-read
(TeX-argument-prompt nil nil "Theme")
- (mapcar 'list
+ (mapcar #'list
(cond ((eq LaTeX-beamer-color-themes 'local)
(set (make-local-variable 'LaTeX-beamer-color-themes)
(LaTeX-beamer-search-themes "^beamercolortheme")))
@@ -345,7 +345,7 @@ also be a string. Then the length of the string is used."
(TeX-argument-insert
(completing-read
(TeX-argument-prompt nil nil "Theme")
- (mapcar 'list
+ (mapcar #'list
(cond ((eq LaTeX-beamer-font-themes 'local)
(set (make-local-variable 'LaTeX-beamer-font-themes)
(LaTeX-beamer-search-themes "^beamerfonttheme")))
diff --git a/style/biblatex.el b/style/biblatex.el
index 10e76ec..e92f186 100644
--- a/style/biblatex.el
+++ b/style/biblatex.el
@@ -1,6 +1,6 @@
;;; biblatex.el --- AUCTeX style for `biblatex.sty' version 2.8a. -*-
lexical-binding: t; -*-
-;; Copyright (C) 2012-2014, 2016, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2021 Free Software Foundation, Inc.
;; Author: Ralf Angeli <angeli@caeruleus.net>
;; Maintainer: auctex-devel@gnu.org
@@ -169,13 +169,13 @@ string."
inputs 'biberinputs)
(message "Searching for BibLaTeX files...")
(or (symbol-value files)
- (set files (mapcar 'list (TeX-search-files-by-type
- 'biberinputs 'global t nil))))
+ (set files (mapcar #'list (TeX-search-files-by-type
+ 'biberinputs 'global t nil))))
(message "Searching for BibLaTeX files...done")
(setq database (completing-read
(TeX-argument-prompt optional prompt "BibLaTeX files")
- (append (mapcar 'list (TeX-search-files-by-type
- inputs 'local t nil))
+ (append (mapcar #'list (TeX-search-files-by-type
+ inputs 'local t nil))
(symbol-value files))))
(LaTeX-add-bibliographies database)
;; Run style file associated to the bibliography database file in order to
@@ -226,11 +226,11 @@ for citation keys."
(TeX-completing-read-multiple
(TeX-argument-prompt optional prompt "Key(s)")
(LaTeX-bibitem-list))))
- (apply 'LaTeX-add-bibitems items)
+ (apply #'LaTeX-add-bibitems items)
;; If input is empty, insert an empty group only the first time, when
;; `noinsert' flag is nil.
(unless (and (not items) noinsert)
- (TeX-argument-insert (mapconcat 'identity items ",") optional))
+ (TeX-argument-insert (mapconcat #'identity items ",") optional))
(setq noinsert t))))
(defun LaTeX-arg-biblatex-natbib-notes (optional)
diff --git a/style/dinbrief.el b/style/dinbrief.el
index 8b0ccd7..035d4ec 100644
--- a/style/dinbrief.el
+++ b/style/dinbrief.el
@@ -1,6 +1,6 @@
;;; dinbrief.el --- Special code for LaTeX-Style dinbrief. -*-
lexical-binding: t; -*-
-;; Copyright (C) 1994, 2013, 2014, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 1994-2021 Free Software Foundation, Inc.
;; Author: Werner Fink <werner@suse.de>
;; Maintainer: auctex-devel@gnu.org
@@ -38,7 +38,7 @@
"dinbrief"
(lambda ()
(add-hook 'LaTeX-document-style-hook
- 'LaTeX-dinbrief-style)
+ #'LaTeX-dinbrief-style)
(LaTeX-add-environments
'("letter" LaTeX-dinbrief-env-recipient)
"dinquote")
diff --git a/style/dk-bib.el b/style/dk-bib.el
index 9af5445..21422a5 100644
--- a/style/dk-bib.el
+++ b/style/dk-bib.el
@@ -1,6 +1,6 @@
;;; dk-bib.el --- AUCTeX style for `dk-bib.sty' -*- lexical-binding: t; -*-
-;; Copyright (C) 2005, 2014, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2005-2021 Free Software Foundation, Inc.
;; Author: Arne Jørgensen <arne@arnested.dk>
;; Keywords: tex
@@ -33,7 +33,7 @@
(defun LaTeX-dk-bib-package-options nil
"Prompt for package options for the dk-bib package."
(let ((options
- (mapconcat 'identity
+ (mapconcat #'identity
(TeX-completing-read-multiple
"Options: "
'(("isbn") ("issn") ("url") ("annote")
diff --git a/style/doc.el b/style/doc.el
index 48e2714..bcdfeef 100644
--- a/style/doc.el
+++ b/style/doc.el
@@ -1,6 +1,6 @@
;;; doc.el --- AUCTeX style for `doc.sty' -*- lexical-binding: t; -*-
-;; Copyright (C) 2004, 2008, 2016, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2004-2021 Free Software Foundation, Inc.
;; Author: Frank Küster <frank@kuesterei.ch>
;; Maintainer: auctex-devel@gnu.org
@@ -72,7 +72,7 @@
'("macrocode*" current-indentation) t)
(add-to-list 'LaTeX-indent-environment-list
'("macro" current-indentation) t)
- (add-hook 'LaTeX-after-insert-env-hook 'LaTeX-doc-after-insert-macrocode
+ (add-hook 'LaTeX-after-insert-env-hook #'LaTeX-doc-after-insert-macrocode
nil t)
(LaTeX-add-environments
"theglossary"
diff --git a/style/foils.el b/style/foils.el
index e87c26b..b53b532 100644
--- a/style/foils.el
+++ b/style/foils.el
@@ -1,6 +1,6 @@
;;; foils.el - Special code for FoilTeX. -*- lexical-binding: t; -*-
-;; Copyright (C) 1994-2014, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 1994-2021 Free Software Foundation, Inc.
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Maintainer: auctex-devel@gnu.org
@@ -30,7 +30,7 @@
(TeX-add-style-hook "foils"
(function
(lambda ()
- (add-hook 'LaTeX-document-style-hook 'LaTeX-style-foils)
+ (add-hook 'LaTeX-document-style-hook #'LaTeX-style-foils)
(setq LaTeX-default-style "foils")
(setq LaTeX-default-options '("landscape"))
(TeX-add-symbols
diff --git a/style/fontenc.el b/style/fontenc.el
index 69d20fd..0fe194b 100644
--- a/style/fontenc.el
+++ b/style/fontenc.el
@@ -1,6 +1,6 @@
;;; fontenc.el --- AUCTeX style for `fontenc.sty' (v1.99g) -*-
lexical-binding: t; -*-
-;; Copyright (C) 2015, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2021 Free Software Foundation, Inc.
;; Author: Arash Esbati <arash@gnu.org>
;; Maintainer: auctex-devel@gnu.org
@@ -46,7 +46,7 @@
(defun LaTeX-fontenc-package-options ()
"Prompt for package options for the fontenc package."
- (mapconcat 'identity
+ (mapconcat #'identity
(TeX-completing-read-multiple
"Encoding(s): "
LaTeX-fontenc-package-options-list) ","))
diff --git a/style/inputenc.el b/style/inputenc.el
index c04d477..14ff61c 100644
--- a/style/inputenc.el
+++ b/style/inputenc.el
@@ -1,6 +1,6 @@
;;; inputenc.el --- AUCTeX style for `inputenc.sty' -*- lexical-binding: t;
-*-
-;; Copyright (C) 2005, 2014, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2005-2021 Free Software Foundation, Inc.
;; Author: Arne Jørgensen <arne@arnested.dk>
;; Keywords: tex
@@ -44,7 +44,7 @@
(if default
(format "Input encoding (default %s): "
default)
"Input encoding: ")
- (mapcar 'car latex-inputenc-coding-alist)
+ (mapcar #'car latex-inputenc-coding-alist)
nil
nil
nil
diff --git a/style/jurabib.el b/style/jurabib.el
index e9d4868..dc01954 100644
--- a/style/jurabib.el
+++ b/style/jurabib.el
@@ -1,6 +1,6 @@
;;; jurabib.el --- AUCTeX style for the `jurabib' package -*-
lexical-binding: t; -*-
-;; Copyright (C) 2004, 2007, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2004-2021 Free Software Foundation, Inc.
;; Author: Ralf Angeli <angeli@iwi.uni-sb.de>
;; Maintainer: auctex-devel@gnu.org
@@ -62,7 +62,7 @@
("footciteauthor" . 2) ("footciteyear" . 2))))
;; Add these symbols
(apply
- 'TeX-add-symbols
+ #'TeX-add-symbols
(mapcar
(lambda (cmd)
(cond
diff --git a/style/kpfonts.el b/style/kpfonts.el
index e789ce8..6e0b4ef 100644
--- a/style/kpfonts.el
+++ b/style/kpfonts.el
@@ -1,6 +1,6 @@
;;; kpfonts.el --- AUCTeX style for `kpfonts.sty' version 3.31. -*-
lexical-binding: t; -*-
-;; Copyright (C) 2013, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2021 Free Software Foundation, Inc.
;; Maintainer: auctex-devel@gnu.org
;; Author: Mosè Giordano <mose@gnu.org>
@@ -498,7 +498,7 @@ the sequence by initializing this variable.")
(cdr parent)))))))))
;; Make the kpfonts prefix char available if it has not been used as a
prefix.
(unless (lookup-key map (LaTeX-kpfonts-abbrev-prefix))
- (define-key map (LaTeX-kpfonts-abbrev-prefix) 'self-insert-command)))
+ (define-key map (LaTeX-kpfonts-abbrev-prefix) #'self-insert-command)))
(define-minor-mode LaTeX-kpfonts-mode
"A minor mode with easy access to kpfonts macros.
diff --git a/style/latexinfo.el b/style/latexinfo.el
index 0232399..3796967 100644
--- a/style/latexinfo.el
+++ b/style/latexinfo.el
@@ -1,6 +1,6 @@
;;; latexinfo.el - Support for LaTeXinfo files. -*- lexical-binding: t; -*-
-;; Copyright (C) 1993, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 1993-2021 Free Software Foundation, Inc.
;; Author: Marc Gemis <makke@wins.uia.ac.be>
@@ -41,12 +41,12 @@ We ignore next, previous and up fields.")
(if LaTeXinfo-mode-map
()
(setq LaTeXinfo-mode-map (make-sparse-keymap))
- (define-key LaTeXinfo-mode-map "\C-c\C-u\C-b" 'latexinfo-format-buffer)
- (define-key LaTeXinfo-mode-map "\C-c\C-u\C-r" 'latexinfo-format-region)
- (define-key LaTeXinfo-mode-map "\C-c\C-u\C-s" 'latexinfo-show-structure)
- (define-key LaTeXinfo-mode-map "\C-c\C-ud" 'makke:latexinfo-delete-structure)
- (define-key LaTeXinfo-mode-map "\C-c\C-ug" 'latexinfo-goto-node)
- (define-key LaTeXinfo-mode-map "\C-c\C-ui" 'makke:latexinfo-structure))
+ (define-key LaTeXinfo-mode-map "\C-c\C-u\C-b" #'latexinfo-format-buffer)
+ (define-key LaTeXinfo-mode-map "\C-c\C-u\C-r" #'latexinfo-format-region)
+ (define-key LaTeXinfo-mode-map "\C-c\C-u\C-s" #'latexinfo-show-structure)
+ (define-key LaTeXinfo-mode-map "\C-c\C-ud"
#'makke:latexinfo-delete-structure)
+ (define-key LaTeXinfo-mode-map "\C-c\C-ug" #'latexinfo-goto-node)
+ (define-key LaTeXinfo-mode-map "\C-c\C-ui" #'makke:latexinfo-structure))
(or (assq 'LaTeXinfo-mode minor-mode-map-alist)
(setq minor-mode-map-alist
diff --git a/style/ntheorem.el b/style/ntheorem.el
index c0ea12c..4c57623 100644
--- a/style/ntheorem.el
+++ b/style/ntheorem.el
@@ -1,6 +1,6 @@
;;; ntheorem.el --- AUCTeX style for `ntheorem.sty' (v1.33) -*-
lexical-binding: t; -*-
-;; Copyright (C) 2015, 2016, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2021 Free Software Foundation, Inc.
;; Author: Arash Esbati <arash@gnu.org>
;; Maintainer: auctex-devel@gnu.org
@@ -140,7 +140,7 @@ RefTeX users should customize or add ENVIRONMENT to
make them available as new environments. Update
`LaTeX-ntheorem-theoremstyle-list' with styles defined with
\"\\newtheoremstyle\"."
- (dolist (newthm (mapcar 'car (LaTeX-ntheorem-newtheorem-list)))
+ (dolist (newthm (mapcar #'car (LaTeX-ntheorem-newtheorem-list)))
(LaTeX-add-environments (list newthm 'LaTeX-ntheorem-env-label))
(LaTeX-add-environments (list (concat newthm "*")
'LaTeX-ntheorem-env-label)))
@@ -151,9 +151,9 @@ make them available as new environments. Update
(add-to-list (make-local-variable 'LaTeX-ntheorem-listtype-list)
newthmlist))
(when (LaTeX-provided-package-options-member "ntheorem" "thmmarks")
- (dolist (nthm (mapcar 'car (LaTeX-ntheorem-newtheorem-list)))
+ (dolist (nthm (mapcar #'car (LaTeX-ntheorem-newtheorem-list)))
(TeX-add-symbols (concat nthm "Symbol"))))
- (dolist (nthm (mapcar 'car (LaTeX-ntheorem-newtheorem-list)))
+ (dolist (nthm (mapcar #'car (LaTeX-ntheorem-newtheorem-list)))
(TeX-add-symbols (concat nthm "name"))))
(add-hook 'TeX-auto-prepare-hook #'LaTeX-ntheorem-auto-prepare t)
@@ -391,13 +391,13 @@ make them available as new environments. Update
;; 2.6 Setting End Marks
;; ... the endmark can manually be set by just saying \<name>Symbol.
(when (LaTeX-provided-package-options-member "ntheorem" "thmmarks")
- (dolist (nthm (mapcar 'car (LaTeX-ntheorem-newtheorem-list)))
+ (dolist (nthm (mapcar #'car (LaTeX-ntheorem-newtheorem-list)))
(TeX-add-symbols (concat nthm "Symbol"))))
;; 2.8 Miscellaneous
;; Inside a theorem-like environment <env>, the name given as
;; optional argument is accessible by \<env>name
- (dolist (nthm (mapcar 'car (LaTeX-ntheorem-newtheorem-list)))
+ (dolist (nthm (mapcar #'car (LaTeX-ntheorem-newtheorem-list)))
(TeX-add-symbols (concat nthm "name")))
;; Fontification
diff --git a/style/pdfsync.el b/style/pdfsync.el
index a6a9ab1..122f0eb 100644
--- a/style/pdfsync.el
+++ b/style/pdfsync.el
@@ -1,6 +1,6 @@
;;; pdfsync.el --- AUCTeX style for `pdfsync.sty' -*- lexical-binding: t; -*-
-;; Copyright (C) 2005, 2008, 2014, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2005-2021 Free Software Foundation, Inc.
;; Author: Ralf Angeli <angeli@iwi.uni-sb.de>
;; Maintainer: auctex-devel@gnu.org
@@ -86,7 +86,7 @@
(TeX-add-style-hook
"pdfsync"
(lambda ()
- (setq TeX-source-correlate-output-page-function 'LaTeX-pdfsync-output-page))
+ (setq TeX-source-correlate-output-page-function
#'LaTeX-pdfsync-output-page))
TeX-dialect)
;;; pdfsync.el ends here
diff --git a/style/polyglossia.el b/style/polyglossia.el
index 36ec765..f17eeab 100644
--- a/style/polyglossia.el
+++ b/style/polyglossia.el
@@ -1,6 +1,6 @@
;;; polyglossia.el --- AUCTeX style for `polyglossia.sty' version 1.42.0. -*-
lexical-binding: t; -*-
-;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2021 Free Software Foundation, Inc.
;; Maintainer: auctex-devel@gnu.org
;; Author: Mosè Giordano <mose@gnu.org>
@@ -173,8 +173,8 @@ second mandatory argument."
;; mechanism to identify the default polyglossia language.
(let ((language (funcall
(if multiple
- 'TeX-completing-read-multiple
- 'completing-read)
+ #'TeX-completing-read-multiple
+ #'completing-read)
(if multiple "Languages: " "Language: ")
(if setkeys
(LaTeX-polyglossia-active-languages)
@@ -201,7 +201,7 @@ second mandatory argument."
(TeX-arg-closing-brace LaTeX-optcl))
(TeX-argument-insert options t)))
(if multiple
- (setq language (mapconcat 'identity language ",")))
+ (setq language (mapconcat #'identity language ",")))
(TeX-argument-insert language nil)
(if setkeys
(TeX-argument-insert options nil))))
diff --git a/style/prosper.el b/style/prosper.el
index ca59500..98c1298 100644
--- a/style/prosper.el
+++ b/style/prosper.el
@@ -1,6 +1,6 @@
;;; prosper.el --- Prosper style file for AUCTeX -*- lexical-binding: t; -*-
-;; Copyright (C) 2001, 2002, 2014, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2001-2021 Free Software Foundation, Inc.
;; Authors: Phillip Lord<p.lord@russet.org.uk>
;; Nevin Kapur <nevin@jhu.edu>
@@ -103,7 +103,7 @@
(TeX-argument-prompt nil
(format "Transition (Default %s) " default)
t)
- (mapcar 'list LaTeX-prosper-transition-styles)
+ (mapcar #'list LaTeX-prosper-transition-styles)
nil
t
nil
diff --git a/style/pst-node.el b/style/pst-node.el
index 183ecd0..86a87e4 100644
--- a/style/pst-node.el
+++ b/style/pst-node.el
@@ -1,6 +1,6 @@
;;; pst-node.el --- AUCTeX style for `pst-node.sty' -*- lexical-binding: t;
-*-
-;; Copyright (C) 2007, 2013, 2014, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2007-2021 Free Software Foundation, Inc.
;; Author: Holger Sparr <holger.sparr@gmx.net>
;; Created: 21 Jun 2007
@@ -49,7 +49,7 @@
(declare-function LaTeX-pst-point "pstricks" ())
(declare-function LaTeX-pst-arrows "pstricks" ())
-(defalias 'LaTeX-pst-node 'LaTeX-pst-point)
+(defalias 'LaTeX-pst-node #'LaTeX-pst-point)
(defvar LaTeX-pstnode-parameters-completion-regexp
"\\(npos\\|nrot\\)"
diff --git a/style/pstricks.el b/style/pstricks.el
index 3e41d64..ec24550 100644
--- a/style/pstricks.el
+++ b/style/pstricks.el
@@ -1,7 +1,6 @@
;;; pstricks.el --- AUCTeX style for the `pstricks' package. -*-
lexical-binding: t; -*-
-;; Copyright (C) 2007, 2009, 2013-2015, 2018, 2020
-;; Free Software Foundation, Inc.
+;; Copyright (C) 2007-2021 Free Software Foundation, Inc.
;; Author: Holger Sparr <holger.sparr@gmx.net>
;; Maintainer: auctex-devel@gnu.org
@@ -79,10 +78,10 @@
(crm-separator (nth 4 first))
res)
(setq list (cdr list))
- (cond ((eq func 'completing-read-multiple)
+ (cond ((eq func #'completing-read-multiple)
(setq res (funcall func prompt list nil compl nil hist))
- (mapconcat 'identity res crm-separator))
- ((eq func 'completing-read)
+ (mapconcat #'identity res crm-separator))
+ ((eq func #'completing-read)
(setq res
(funcall func prompt list nil compl nil hist)))))
(completing-read (concat prompt ": ") list nil nil nil hist))))
@@ -789,7 +788,7 @@ comma separated list. Point has to be within the sexp to
modify."
;; takes dvips+ps2pdf route when `TeX-PDF-mode' is enabled.
;; (TeX-PDF-mode-off)
(setq TeX-PDF-from-DVI "Dvips"))
- (mapc 'TeX-auto-add-regexp LaTeX-auto-pstricks-regexp-list)
+ (mapc #'TeX-auto-add-regexp LaTeX-auto-pstricks-regexp-list)
(LaTeX-add-environments
'("pspicture" LaTeX-pst-env-pspicture)
"overlaybox" "psclip")
diff --git a/style/siunitx.el b/style/siunitx.el
index b7a2acd..e67e817 100644
--- a/style/siunitx.el
+++ b/style/siunitx.el
@@ -1,6 +1,6 @@
;;; siunitx.el --- AUCTeX style for `siunitx.sty' version 2.5s. -*-
lexical-binding: t; -*-
-;; Copyright (C) 2012-2015, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2021 Free Software Foundation, Inc.
;; Maintainer: auctex-devel@gnu.org
;; Author: Mosè Giordano <giordano.mose@libero.it>
@@ -88,7 +88,7 @@ PREFIX is non-nil, insert it before the given input."
(remove (assoc 32 minibuffer-local-completion-map)
minibuffer-local-completion-map))
(crm-separator (regexp-quote TeX-esc))
- (unit (mapconcat 'identity
+ (unit (mapconcat #'identity
(TeX-completing-read-multiple
(TeX-argument-prompt optional prompt "Unit: " t)
(LaTeX-siunitx-unit-list) nil nil initial-input
diff --git a/style/theorem.el b/style/theorem.el
index 65712b8..4c3547b 100644
--- a/style/theorem.el
+++ b/style/theorem.el
@@ -1,6 +1,6 @@
;;; theorem.el --- AUCTeX style for `theorem.sty' (v2.2c) -*-
lexical-binding: t; -*-
-;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2021 Free Software Foundation, Inc.
;; Author: Arash Esbati <arash@gnu.org>
;; Maintainer: auctex-devel@gnu.org
@@ -72,7 +72,7 @@ argument. Use PROMPT as the prompt string."
;; `INITIAL-INPUT' (5th argument to `TeX-completing-read-multiple')
;; is hard-coded to `TeX-esc'.
(let* ((crm-separator (regexp-quote TeX-esc))
- (fontdecl (mapconcat 'identity
+ (fontdecl (mapconcat #'identity
(TeX-completing-read-multiple
(TeX-argument-prompt optional prompt "Font")
LaTeX-theorem-fontdecl nil nil TeX-esc)
@@ -113,7 +113,7 @@ RefTeX users should customize or add ENVIRONMENT to
(defun LaTeX-theorem-auto-cleanup ()
"Move parsed results from `LaTeX-auto-theorem-newtheorem' and
make them available as new environments."
- (dolist (newthm (mapcar 'car (LaTeX-theorem-newtheorem-list)))
+ (dolist (newthm (mapcar #'car (LaTeX-theorem-newtheorem-list)))
(LaTeX-add-environments (list newthm 'LaTeX-theorem-env-label))))
(add-hook 'TeX-auto-prepare-hook #'LaTeX-theorem-auto-prepare t)
diff --git a/style/ulem.el b/style/ulem.el
index e9a7d3e..7db5716 100644
--- a/style/ulem.el
+++ b/style/ulem.el
@@ -1,6 +1,6 @@
;;; ulem.el --- AUCTeX style for `ulem.sty' -*- lexical-binding: t; -*-
-;; Copyright (C) 2012, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2021 Free Software Foundation, Inc.
;; Author: Mads Jensen <mje@inducks.org>
;; Keywords: tex
@@ -101,7 +101,7 @@
"Prompt for underline command used in \\useunder"
(TeX-argument-insert
(completing-read (TeX-argument-prompt optional prompt "Underline command")
- (mapcar 'list
+ (mapcar #'list
(mapcar (lambda (str) (concat "\\" str))
'("uline" "uuline"
"uwave" "sout" "xout")))
diff --git a/tex-bar.el b/tex-bar.el
index 4f90384..72fe1dc 100644
--- a/tex-bar.el
+++ b/tex-bar.el
@@ -1,6 +1,6 @@
;;; tex-bar.el --- toolbar icons on AUCTeX in GNU emacs. -*- lexical-binding:
t; -*-
-;; Copyright (C) 2004-2008, 2012-2020 Free Software Foundation, Inc.
+;; Copyright (C) 2004-2021 Free Software Foundation, Inc.
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@@ -214,7 +214,7 @@ format of the argument MEANING-ALIST in the mentioned
function."
(require 'toolbar-x)
(add-to-list 'toolbarx-image-path
(expand-file-name "images" TeX-data-directory))
- (add-hook 'TeX-PDF-mode-hook 'toolbarx-refresh nil t)
+ (add-hook 'TeX-PDF-mode-hook #'toolbarx-refresh nil t)
(toolbarx-install-toolbar TeX-bar-TeX-buttons
(let ((append-list))
(dolist (elt TeX-bar-TeX-all-button-alists)
@@ -359,11 +359,11 @@ format of the argument MEANING-ALIST in the mentioned
function."
(require 'toolbar-x)
(add-to-list 'toolbarx-image-path
(expand-file-name "images" TeX-data-directory))
- (add-hook 'TeX-PDF-mode-hook 'toolbarx-refresh nil t)
+ (add-hook 'TeX-PDF-mode-hook #'toolbarx-refresh nil t)
;; Refresh the toolbar after styles update because `LaTeX-using-Biber' value
;; could have been changed. Append the refresh to the hook so it is run
after
;; the other styles-related changes.
- (add-hook 'TeX-update-style-hook 'toolbarx-refresh t t)
+ (add-hook 'TeX-update-style-hook #'toolbarx-refresh t t)
(toolbarx-install-toolbar TeX-bar-LaTeX-buttons
(let ((append-list))
(dolist (elt TeX-bar-LaTeX-all-button-alists)
diff --git a/tex-buf.el b/tex-buf.el
index 9f174f0..511357f 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1,6 +1,6 @@
;;; tex-buf.el --- External commands for AUCTeX. -*- lexical-binding: t; -*-
-;; Copyright (C) 1991-1999, 2001-2020 Free Software Foundation, Inc.
+;; Copyright (C) 1991-2021 Free Software Foundation, Inc.
;; Maintainer: auctex-devel@gnu.org
;; Keywords: tex, wp
@@ -1190,7 +1190,7 @@ run of `TeX-run-TeX', use
;; backward compatibilty
-(defalias 'TeX-run-LaTeX 'TeX-run-TeX)
+(defalias 'TeX-run-LaTeX #'TeX-run-TeX)
(defun TeX-run-BibTeX (name command file)
@@ -1296,7 +1296,7 @@ With support for MS-DOS, especially when dviout is used
with PC-9801 series."
TeX-shell-command-option command)
(if (eq system-type 'ms-dos)
(redraw-display)))
-(defalias 'TeX-run-dviout 'TeX-run-discard-foreground)
+(defalias 'TeX-run-dviout #'TeX-run-discard-foreground)
(defun TeX-run-background (name command _file)
"Start process with second argument, show output when and if it arrives."
@@ -3699,15 +3699,15 @@ forward, if negative)."
(defvar TeX-error-overview-mode-map
(let ((map (make-sparse-keymap)))
- (define-key map "b" 'TeX-error-overview-toggle-debug-bad-boxes)
- (define-key map "j" 'TeX-error-overview-jump-to-source)
- (define-key map "l" 'TeX-error-overview-goto-log)
- (define-key map "n" 'TeX-error-overview-next-error)
- (define-key map "p" 'TeX-error-overview-previous-error)
- (define-key map "q" 'TeX-error-overview-quit)
- (define-key map "w" 'TeX-error-overview-toggle-debug-warnings)
- (define-key map "x"
'TeX-error-overview-toggle-suppress-ignored-warnings)
- (define-key map "\C-m" 'TeX-error-overview-goto-source)
+ (define-key map "b" #'TeX-error-overview-toggle-debug-bad-boxes)
+ (define-key map "j" #'TeX-error-overview-jump-to-source)
+ (define-key map "l" #'TeX-error-overview-goto-log)
+ (define-key map "n" #'TeX-error-overview-next-error)
+ (define-key map "p" #'TeX-error-overview-previous-error)
+ (define-key map "q" #'TeX-error-overview-quit)
+ (define-key map "w" #'TeX-error-overview-toggle-debug-warnings)
+ (define-key map "x"
#'TeX-error-overview-toggle-suppress-ignored-warnings)
+ (define-key map "\C-m" #'TeX-error-overview-goto-source)
map)
"Local keymap for `TeX-error-overview-mode' buffers.")
@@ -3854,10 +3854,10 @@ warnings and bad boxes"
(defvar TeX-output-mode-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map TeX-special-mode-map)
- (define-key map "n" 'TeX-next-error)
- (define-key map "p" 'TeX-previous-error)
- (define-key map "b" 'TeX-toggle-debug-bad-boxes)
- (define-key map "w" 'TeX-toggle-debug-warnings)
+ (define-key map "n" #'TeX-next-error)
+ (define-key map "p" #'TeX-previous-error)
+ (define-key map "b" #'TeX-toggle-debug-bad-boxes)
+ (define-key map "w" #'TeX-toggle-debug-warnings)
(define-key map "i" (lambda ()
(interactive)
(with-current-buffer TeX-command-buffer
diff --git a/tex-fold.el b/tex-fold.el
index a281a32..c91e523 100644
--- a/tex-fold.el
+++ b/tex-fold.el
@@ -1,7 +1,6 @@
;;; tex-fold.el --- Fold TeX macros.
-;; Copyright (C) 2004-2008, 2011-2012, 2014, 2017, 2018
-;; Free Software Foundation, Inc.
+;; Copyright (C) 2004-2021 Free Software Foundation, Inc.
;; Author: Ralf Angeli <angeli@caeruleus.net>
;; Maintainer: auctex-devel@gnu.org
@@ -257,17 +256,17 @@ After that, changing the prefix key requires manipulating
keymaps."
(defvar TeX-fold-keymap
(let ((map (make-sparse-keymap)))
- (define-key map "\C-o" 'TeX-fold-dwim)
- (define-key map "\C-b" 'TeX-fold-buffer)
- (define-key map "\C-r" 'TeX-fold-region)
- (define-key map "\C-p" 'TeX-fold-paragraph)
- (define-key map "\C-m" 'TeX-fold-macro)
- (define-key map "\C-e" 'TeX-fold-env)
- (define-key map "\C-c" 'TeX-fold-comment)
- (define-key map "b" 'TeX-fold-clearout-buffer)
- (define-key map "r" 'TeX-fold-clearout-region)
- (define-key map "p" 'TeX-fold-clearout-paragraph)
- (define-key map "i" 'TeX-fold-clearout-item)
+ (define-key map "\C-o" #'TeX-fold-dwim)
+ (define-key map "\C-b" #'TeX-fold-buffer)
+ (define-key map "\C-r" #'TeX-fold-region)
+ (define-key map "\C-p" #'TeX-fold-paragraph)
+ (define-key map "\C-m" #'TeX-fold-macro)
+ (define-key map "\C-e" #'TeX-fold-env)
+ (define-key map "\C-c" #'TeX-fold-comment)
+ (define-key map "b" #'TeX-fold-clearout-buffer)
+ (define-key map "r" #'TeX-fold-clearout-region)
+ (define-key map "p" #'TeX-fold-clearout-paragraph)
+ (define-key map "i" #'TeX-fold-clearout-item)
map))
@@ -858,7 +857,7 @@ Remove the respective properties from the overlay OV."
(not (eq (window-buffer (car x))
(current-buffer)))))
TeX-fold-open-spots))
- (old-ols (mapcar 'cdr (car spots))))
+ (old-ols (mapcar #'cdr (car spots))))
(setq TeX-fold-open-spots (cdr spots))
(when (or (and (boundp 'disable-point-adjustment)
disable-point-adjustment)
@@ -921,8 +920,8 @@ With zero or negative ARG turn mode off."
(if TeX-fold-mode
(progn
(set (make-local-variable 'search-invisible) t)
- (add-hook 'post-command-hook 'TeX-fold-post-command nil t)
- (add-hook 'LaTeX-fill-newline-hook 'TeX-fold-update-at-point nil t)
+ (add-hook 'post-command-hook #'TeX-fold-post-command nil t)
+ (add-hook 'LaTeX-fill-newline-hook #'TeX-fold-update-at-point nil t)
(add-hook 'TeX-after-insert-macro-hook
(lambda ()
(when (and TeX-fold-mode TeX-fold-auto)
@@ -943,13 +942,13 @@ With zero or negative ARG turn mode off."
(when (boundp symbol)
(symbol-value symbol)))))))
(kill-local-variable 'search-invisible)
- (remove-hook 'post-command-hook 'TeX-fold-post-command t)
- (remove-hook 'LaTeX-fill-newline-hook 'TeX-fold-update-at-point t)
+ (remove-hook 'post-command-hook #'TeX-fold-post-command t)
+ (remove-hook 'LaTeX-fill-newline-hook #'TeX-fold-update-at-point t)
(TeX-fold-clearout-buffer))
(TeX-set-mode-name))
;;;###autoload
-(defalias 'tex-fold-mode 'TeX-fold-mode)
+(defalias 'tex-fold-mode #'TeX-fold-mode)
(provide 'tex-fold)
diff --git a/tex-info.el b/tex-info.el
index c9810d2..a695909 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -1,7 +1,6 @@
;;; tex-info.el --- Support for editing Texinfo source.
-;; Copyright (C) 1993, 1994, 1997, 2000, 2001, 2004, 2005, 2006,
-;; 2011-2015, 2017-2019 Free Software Foundation, Inc.
+;; Copyright (C) 1993-2021 Free Software Foundation, Inc.
;; Maintainer: auctex-devel@gnu.org
;; Keywords: tex
@@ -52,7 +51,7 @@
(defconst texinfo-environment-regexp
;; Overwrite version from `texinfo.el'.
(concat "^@\\("
- (mapconcat 'car Texinfo-environment-list "\\|")
+ (mapconcat #'car Texinfo-environment-list "\\|")
"\\|end\\)\\>")
"Regexp for environment-like Texinfo list commands.
Subexpression 1 is what goes into the corresponding `@end' statement.")
@@ -106,7 +105,7 @@ With optional ARG, modify current environment."
(defun Texinfo-find-env-end ()
"Move point to the end of the current environment."
(interactive)
- (let* ((envs (mapcar 'car Texinfo-environment-list))
+ (let* ((envs (mapcar #'car Texinfo-environment-list))
(regexp (concat "^[ \t]*" (regexp-quote TeX-esc) "\\(end \\)*"
(regexp-opt envs t) "\\b"))
(orig-pos (point))
@@ -133,7 +132,7 @@ With optional ARG, modify current environment."
(defun Texinfo-find-env-start ()
"Move point to the start of the current environment."
(interactive)
- (let* ((envs (mapcar 'car Texinfo-environment-list))
+ (let* ((envs (mapcar #'car Texinfo-environment-list))
(regexp (concat "^[ \t]*\\(" (regexp-quote TeX-esc) "\\)\\(end \\)*"
(regexp-opt envs t) "\\b"))
(level 1)
@@ -304,7 +303,7 @@ character. Return the resulting string."
commands. Return the resulting string."
(let* ((pos 0)
(map '(("," . "comma")))
- (re (regexp-opt (mapcar 'car map))) )
+ (re (regexp-opt (mapcar #'car map))) )
(while (and (< pos (length node-name)) (string-match re node-name pos))
(setq node-name (concat (substring node-name 0 (match-beginning 0))
"@" (cdr (assoc-string (match-string 0
node-name) map))
@@ -509,22 +508,22 @@ is assumed by default."
;; From texinfo.el
;; bindings for updating nodes and menus
- (define-key map "\C-c\C-um" 'texinfo-master-menu)
- (define-key map "\C-c\C-u\C-m" 'texinfo-make-menu)
- (define-key map "\C-c\C-u\C-n" 'texinfo-update-node)
- (define-key map "\C-c\C-u\C-e" 'texinfo-every-node-update)
- (define-key map "\C-c\C-u\C-a" 'texinfo-all-menus-update)
+ (define-key map "\C-c\C-um" #'texinfo-master-menu)
+ (define-key map "\C-c\C-u\C-m" #'texinfo-make-menu)
+ (define-key map "\C-c\C-u\C-n" #'texinfo-update-node)
+ (define-key map "\C-c\C-u\C-e" #'texinfo-every-node-update)
+ (define-key map "\C-c\C-u\C-a" #'texinfo-all-menus-update)
;; Simulating LaTeX-mode
- (define-key map "\C-c\C-e" 'Texinfo-environment)
- (define-key map "\C-c." 'Texinfo-mark-environment)
- (define-key map "\C-c*" 'Texinfo-mark-section)
- (define-key map "\M-\C-h" 'Texinfo-mark-node)
- (define-key map "\C-c\n" 'texinfo-insert-@item)
+ (define-key map "\C-c\C-e" #'Texinfo-environment)
+ (define-key map "\C-c." #'Texinfo-mark-environment)
+ (define-key map "\C-c*" #'Texinfo-mark-section)
+ (define-key map "\M-\C-h" #'Texinfo-mark-node)
+ (define-key map "\C-c\n" #'texinfo-insert-@item)
(or (key-binding "\e\r")
- (define-key map "\e\r" 'texinfo-insert-@item)) ;*** Alias
- (define-key map "\C-c\C-s" 'Texinfo-insert-node)
- (define-key map "\C-c]" 'texinfo-insert-@end)
+ (define-key map "\e\r" #'texinfo-insert-@item)) ;*** Alias
+ (define-key map "\C-c\C-s" #'Texinfo-insert-node)
+ (define-key map "\C-c]" #'texinfo-insert-@end)
;; Override some bindings in `TeX-mode-map'
;; FIXME: Inside @math{}, you can use all plain TeX math commands
@@ -622,7 +621,7 @@ is assumed by default."
;;; Mode:
;;;###autoload
-(defalias 'Texinfo-mode 'texinfo-mode)
+(defalias 'Texinfo-mode #'texinfo-mode)
(defvar TeX-sentinel-default-function) ;; Defined in tex-buf.el.
@@ -639,7 +638,7 @@ value of `Texinfo-mode-hook'."
(kill-all-local-variables)
(setq TeX-mode-p t)
(setq TeX-output-extension (if TeX-PDF-mode "pdf" "dvi"))
- (setq TeX-sentinel-default-function 'TeX-TeX-sentinel)
+ (setq TeX-sentinel-default-function #'TeX-TeX-sentinel)
;; Mostly stolen from texinfo.el
(setq TeX-base-mode-name "Texinfo")
(setq major-mode 'texinfo-mode)
@@ -673,7 +672,7 @@ value of `Texinfo-mode-hook'."
;; Outline settings.
(set (make-local-variable 'outline-regexp)
(concat "@\\("
- (mapconcat 'car texinfo-section-list "\\>\\|")
+ (mapconcat #'car texinfo-section-list "\\>\\|")
"\\>\\)"))
(set (make-local-variable 'outline-level) 'texinfo-outline-level)
@@ -696,7 +695,8 @@ value of `Texinfo-mode-hook'."
(list "" TeX-complete-word)))
(set (make-local-variable 'TeX-font-list) Texinfo-font-list)
- (set (make-local-variable 'TeX-font-replace-function)
'TeX-font-replace-macro)
+ (set (make-local-variable 'TeX-font-replace-function)
+ #'TeX-font-replace-macro)
(set (make-local-variable 'TeX-style-hook-dialect) :texinfo)
(add-hook 'find-file-hook (lambda ()
@@ -853,7 +853,7 @@ value of `Texinfo-mode-hook'."
'("xref" (Texinfo-arg-nodename "Node name")))
;; RefTeX plugging
- (add-hook 'reftex-mode-hook 'Texinfo-reftex-hook)
+ (add-hook 'reftex-mode-hook #'Texinfo-reftex-hook)
(if (and (boundp 'reftex-mode) reftex-mode)
(Texinfo-reftex-hook))
diff --git a/tex-site.el b/tex-site.el
index add90d4..d580c11 100644
--- a/tex-site.el
+++ b/tex-site.el
@@ -1,6 +1,6 @@
;;; tex-site.el - Site specific variables. Don't edit.
-;; Copyright (C) 2005, 2013, 2016-2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2005-2021 Free Software Foundation, Inc.
;;
;; completely rewritten.
@@ -91,7 +91,7 @@ shared by all users of a site."
(doctex-mode . tex-mode))
"Alist of built-in TeX modes and their load files.")
-(defalias 'TeX-load-hack 'ignore)
+(defalias 'TeX-load-hack #'ignore)
(add-hook 'tex-site-unload-hook
(lambda ()
@@ -166,7 +166,7 @@ If not a regular release, the date of the last change.")
"AUCTeX release date using the ISO 8601 format, yyyy-mm-dd.")
;; Store bibitems when saving a BibTeX buffer
-(add-hook 'bibtex-mode-hook 'BibTeX-auto-store)
+(add-hook 'bibtex-mode-hook #'BibTeX-auto-store)
;;; Code specific to ELPA packaging:
diff --git a/tex-style.el b/tex-style.el
index 182dae4..85e891a 100644
--- a/tex-style.el
+++ b/tex-style.el
@@ -1,6 +1,6 @@
;;; tex-style.el --- Customizable variables for AUCTeX style files
-;; Copyright (C) 2005, 2007, 2009, 2012-2020 Free Software Foundation, Inc.
+;; Copyright (C) 2005-2021 Free Software Foundation, Inc.
;; Author: Reiner Steib <Reiner.Steib@gmx.de>
;; Keywords: tex, wp, convenience
@@ -414,7 +414,7 @@ your document actually defines shortvrb chars using
\\MakeShortVrb."
:group 'LaTeX-style
:type '(repeat character))
-(put 'LaTeX-shortvrb-chars 'safe-local-variable 'listp)
+(put 'LaTeX-shortvrb-chars 'safe-local-variable #'listp)
;; style/splitidx.el
diff --git a/tex-wizard.el b/tex-wizard.el
index 8023e47..5299d32 100644
--- a/tex-wizard.el
+++ b/tex-wizard.el
@@ -1,6 +1,6 @@
;;; tex-wizard.el --- Check the TeX configuration
-;; Copyright (C) 2003, 2006, 2016, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2003-2021 Free Software Foundation, Inc.
;; Author: David Kastrup <dak@gnu.org>
;; Keywords: tex, wp, convenience
@@ -76,19 +76,19 @@ and bibliographics references.\n")
(format "Enable RefTeX in `%s'" user-init-file))
(select-window wizwin)
(switch-to-buffer wizbuf))
- (add-hook 'LaTeX-mode-hook 'turn-on-reftex)
- (add-hook 'latex-mode-hook 'turn-on-reftex)
+ (add-hook 'LaTeX-mode-hook #'turn-on-reftex)
+ (add-hook 'latex-mode-hook #'turn-on-reftex)
(condition-case nil
(write-region "\
;;; Enable RefTeX
-\(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
-\(add-hook 'latex-mode-hook 'turn-on-reftex)
+\(add-hook 'LaTeX-mode-hook #'turn-on-reftex)
+\(add-hook 'latex-mode-hook #'turn-on-reftex)
" nil user-init-file t)
(error (insert-before-markers
(format "Unable to write to file `%s'\n" user-init-file))))))
(when (and (featurep 'tex-site)
(boundp 'LaTeX-mode-hook)
- (memq 'turn-on-reftex LaTeX-mode-hook))
+ (memq #'turn-on-reftex LaTeX-mode-hook))
(if (and (boundp 'reftex-plug-into-AUCTeX)
reftex-plug-into-AUCTeX)
(insert-before-markers
diff --git a/tex.el b/tex.el
index d67b9f8..80de134 100644
--- a/tex.el
+++ b/tex.el
@@ -791,7 +791,7 @@ in nil across different emacs versions."
(unwind-protect
(progn
(add-hook 'choose-completion-string-functions
- 'crm--choose-completion-string)
+ #'crm--choose-completion-string)
(let* ((minibuffer-completion-table #'crm--collection-fn)
(minibuffer-completion-predicate predicate)
;; see completing_read in src/minibuf.c
@@ -813,7 +813,7 @@ in nil across different emacs versions."
nil
result)))
(remove-hook 'choose-completion-string-functions
- 'crm--choose-completion-string)))
+ #'crm--choose-completion-string)))
;; For GNU Emacs <= 24.3.
(defun TeX-completing-read-multiple
(prompt table &optional predicate require-match initial-input
@@ -1590,7 +1590,7 @@ It should be one of the following symbols:\n\n"
(TeX-engine-alist))))
(make-variable-buffer-local 'TeX-engine)
(put 'TeX-engine 'safe-local-variable
- (lambda (arg) (memq arg (mapcar 'car TeX-engine-alist-builtin))))
+ (lambda (arg) (memq arg (mapcar #'car TeX-engine-alist-builtin))))
(defun TeX-engine-set (type)
"Set TeX engine to TYPE.
@@ -1614,7 +1614,7 @@ For available TYPEs, see variable `TeX-engine'."
nil nil nil
:group 'TeX-command
(TeX-engine-set (if TeX-Omega-mode 'omega 'default)))
-(defalias 'tex-omega-mode 'TeX-Omega-mode)
+(defalias 'tex-omega-mode #'TeX-Omega-mode)
(make-obsolete 'TeX-Omega-mode 'TeX-engine-set "11.86")
(make-obsolete-variable 'TeX-Omega-mode 'TeX-engine "11.86")
@@ -1748,7 +1748,7 @@ If this is nil, an empty string will be returned."
;; in certain places of the DVI file. WHERE is a
;; comma-separated value list: cr display hbox
;; math par parend vbox
- (concat "=" (mapconcat 'identity
+ (concat "=" (mapconcat #'identity
TeX-source-specials-places ","))))
TeX-synctex-tex-flags)
""))
@@ -1874,9 +1874,9 @@ SyncTeX are recognized."
"SyncSource"
'TeX-source-correlate-sync-source))))
-(defalias 'TeX-source-specials-mode 'TeX-source-correlate-mode)
+(defalias 'TeX-source-specials-mode #'TeX-source-correlate-mode)
(make-obsolete 'TeX-source-specials-mode 'TeX-source-correlate-mode "11.86")
-(defalias 'tex-source-correlate-mode 'TeX-source-correlate-mode)
+(defalias 'tex-source-correlate-mode #'TeX-source-correlate-mode)
(put 'TeX-source-correlate-mode 'safe-local-variable #'booleanp)
(setq minor-mode-map-alist
(delq (assq 'TeX-source-correlate-mode minor-mode-map-alist)
@@ -2017,7 +2017,7 @@ enabled and the `synctex' binary is available."
(defcustom TeX-PDF-mode t nil
:group 'TeX-command
- :set 'TeX-mode-set
+ :set #'TeX-mode-set
:type 'boolean)
(put 'TeX-PDF-mode 'safe-local-variable #'booleanp)
@@ -2045,7 +2045,7 @@ function `TeX-global-PDF-mode' for toggling this value."
(not (default-value 'TeX-PDF-mode))))
(TeX-set-mode-name 'TeX-PDF-mode nil t)))
-(defalias 'tex-pdf-mode 'TeX-PDF-mode)
+(defalias 'tex-pdf-mode #'TeX-PDF-mode)
(defvar TeX-PDF-mode-parsed nil
"Set if `TeX-PDF-mode' has come about by parsing.")
@@ -2136,7 +2136,7 @@ for backward compatibility."
nil nil nil
:group 'TeX-command
(TeX-set-mode-name 'TeX-interactive-mode t t))
-(defalias 'tex-interactive-mode 'TeX-interactive-mode)
+(defalias 'tex-interactive-mode #'TeX-interactive-mode)
(add-to-list 'minor-mode-alist '(TeX-interactive-mode ""))
;;; Commands
@@ -2189,7 +2189,7 @@ Must be the car of an entry in `TeX-command-list'."
(make-variable-buffer-local 'TeX-command-default)
-(put 'TeX-command-default 'safe-local-variable 'stringp)
+(put 'TeX-command-default 'safe-local-variable #'stringp)
(defvar TeX-clean-default-intermediate-suffixes
'("\\.aux" "\\.bbl" "\\.blg" "\\.brf" "\\.fot"
@@ -2257,7 +2257,7 @@ also included in the regexp."
(intern (concat mode-prefix
"-clean-output-suffixes"))))))))
(when suffixes
- (mapconcat 'identity suffixes "\\|"))))
+ (mapconcat #'identity suffixes "\\|"))))
;;; Master File
@@ -2903,15 +2903,15 @@ side effect e.g. on variable `TeX-font-list'.")
(defsubst TeX-shdex-or (&rest args)
"OR operator for style hook dialect expressions."
- (apply 'logior (mapcar 'TeX-shdex-eval args)))
+ (apply #'logior (mapcar #'TeX-shdex-eval args)))
(defsubst TeX-shdex-and (&rest args)
"AND operator for style hook dialect expressions."
- (apply 'logand (mapcar 'TeX-shdex-eval args)))
+ (apply #'logand (mapcar #'TeX-shdex-eval args)))
(defsubst TeX-shdex-nor (&rest args)
"NOR operator for style hook dialect expressions."
- (lognot (apply 'TeX-shdex-or args)))
+ (lognot (apply #'TeX-shdex-or args)))
(defsubst TeX-shdex-not (arg)
"NOT operator for style hook dialect expressions."
@@ -3354,7 +3354,7 @@ is called with \\[universal-argument]."
(defvar TeX-electric-macro-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map minibuffer-local-completion-map)
- (define-key map " " 'minibuffer-complete-and-exit)
+ (define-key map " " #'minibuffer-complete-and-exit)
map))
(defun TeX-electric-macro ()
@@ -3555,7 +3555,7 @@ See `TeX-parse-macro' for details."
(let ((head (car arg))
(tail (cdr arg)))
(cond ((stringp head)
- (apply 'TeX-arg-string optional arg))
+ (apply #'TeX-arg-string optional arg))
((symbolp head)
(apply head optional tail))
(t (error "Unknown list argument type %s"
@@ -3760,7 +3760,7 @@ The algorithm is as follows:
;; Removed as commenting in (La)TeX is done with one `%' not two
;; (make-local-variable 'comment-add)
;; (setq comment-add 1) ;default to `%%' in comment-region
- (set (make-local-variable 'comment-indent-function) 'TeX-comment-indent)
+ (set (make-local-variable 'comment-indent-function) #'TeX-comment-indent)
(set (make-local-variable 'comment-multi-line) nil)
(make-local-variable 'compile-command)
(unless (boundp 'compile-command)
@@ -3787,7 +3787,7 @@ The algorithm is as follows:
;; we enter TeX mode the first time.
(add-hook 'write-contents-functions #'TeX-safe-auto-write nil t)
- (define-key TeX-mode-map "\C-xng" 'TeX-narrow-to-group)
+ (define-key TeX-mode-map "\C-xng" #'TeX-narrow-to-group)
;; Minor modes
(when TeX-source-correlate-mode
@@ -3888,8 +3888,8 @@ The algorithm is as follows:
;; Sort it
(message "Sorting %s..." name)
(set local
- (sort (mapcar 'TeX-listify (apply 'append (symbol-value local)))
- 'TeX-car-string-lessp))
+ (sort (mapcar #'TeX-listify (apply #'append (symbol-value local)))
+ #'TeX-car-string-lessp))
(message "Sorting %s...done" name)
;; Make it unique
(message "Removing duplicates...")
@@ -3955,7 +3955,7 @@ Generated by `TeX-auto-add-type'.")
"Parse and apply TeX information in the current buffer."
(TeX-auto-parse)
(run-hooks 'TeX-auto-apply-hook)
- (mapcar 'TeX-auto-apply-entry TeX-auto-parser))
+ (mapcar #'TeX-auto-apply-entry TeX-auto-parser))
(defun TeX-auto-apply-entry (entry)
"Apply the information in ENTRY in `TeX-auto-parser'."
@@ -4103,7 +4103,7 @@ If TEX is a directory, generate style files for all files
in the directory."
"Extract information for AUCTeX from current buffer and store it in FILE."
(TeX-auto-parse)
- (if (member nil (mapcar 'TeX-auto-entry-clear-p TeX-auto-parser))
+ (if (member nil (mapcar #'TeX-auto-entry-clear-p TeX-auto-parser))
(let ((style (TeX-strip-extension nil TeX-all-extensions t))
(class-opts (if (boundp 'LaTeX-provided-class-options)
LaTeX-provided-class-options))
@@ -4362,7 +4362,7 @@ functions in `TeX-auto-cleanup-hook' after parsing."
(let ((case-fold-search nil))
- (mapc 'TeX-auto-clear-entry TeX-auto-parser)
+ (mapc #'TeX-auto-clear-entry TeX-auto-parser)
(run-hooks 'TeX-auto-prepare-hook)
(save-excursion
@@ -4398,7 +4398,7 @@ functions in `TeX-auto-cleanup-hook' after parsing."
"Add MATCH to TeX-auto-symbols.
Check for potential LaTeX environments."
(let ((symbol (if (listp match)
- (mapcar 'TeX-match-buffer match)
+ (mapcar #'TeX-match-buffer match)
(TeX-match-buffer match))))
(if (and (stringp symbol)
(string-match "^end\\(.+\\)$" symbol))
@@ -4481,7 +4481,7 @@ If EXTENSIONS is not specified or nil, the value of
(setq extensions TeX-file-extensions))
(let ((regexp (concat "\\.\\("
- (mapconcat 'identity extensions "\\|")
+ (mapconcat #'identity extensions "\\|")
"\\)$"))
(case-fold-search t))
(string-match regexp file)))
@@ -4948,63 +4948,63 @@ Brace insertion is only done if point is in a math
construct and
(defvar TeX-mode-map
(let ((map (make-sparse-keymap)))
;; Standard
- ;; (define-key map "\177" 'backward-delete-char-untabify)
- (define-key map "\C-c}" 'up-list)
- (define-key map "\C-c#" 'TeX-normal-mode)
- (define-key map "\C-c\C-n" 'TeX-normal-mode)
- (define-key map "\C-c?" 'TeX-documentation-texdoc)
- (define-key map "\C-c\C-i" 'TeX-goto-info-page)
- (define-key map "\r" 'TeX-newline)
+ ;; (define-key map "\177" #'backward-delete-char-untabify)
+ (define-key map "\C-c}" #'up-list)
+ (define-key map "\C-c#" #'TeX-normal-mode)
+ (define-key map "\C-c\C-n" #'TeX-normal-mode)
+ (define-key map "\C-c?" #'TeX-documentation-texdoc)
+ (define-key map "\C-c\C-i" #'TeX-goto-info-page)
+ (define-key map "\r" #'TeX-newline)
;; From tex.el
- (define-key map "\"" 'TeX-insert-quote)
- (define-key map "$" 'TeX-insert-dollar)
+ (define-key map "\"" #'TeX-insert-quote)
+ (define-key map "$" #'TeX-insert-dollar)
;; Removed because LaTeX 2e have a better solution to italic correction.
- ;; (define-key map "." 'TeX-insert-punctuation)
- ;; (define-key map "," 'TeX-insert-punctuation)
- (define-key map "\C-c{" 'TeX-insert-braces)
- (define-key map "\C-c\C-f" 'TeX-font)
- (define-key map "\C-c\C-m" 'TeX-insert-macro)
- (define-key map "\\" 'TeX-insert-backslash)
- (define-key map "^" 'TeX-insert-sub-or-superscript)
- (define-key map "_" 'TeX-insert-sub-or-superscript)
- (define-key map "\e\t" 'TeX-complete-symbol) ;*** Emacs 19 way
-
- (define-key map "\C-c'" 'TeX-comment-or-uncomment-paragraph) ;*** Old
way
- (define-key map "\C-c:" 'comment-or-uncomment-region) ;*** Old way
- (define-key map "\C-c\"" 'TeX-uncomment) ;*** Old way
-
- (define-key map "\C-c;" 'comment-or-uncomment-region)
- (define-key map "\C-c%" 'TeX-comment-or-uncomment-paragraph)
-
- (define-key map "\C-c\C-t\C-p" 'TeX-PDF-mode)
- (define-key map "\C-c\C-t\C-i" 'TeX-interactive-mode)
- (define-key map "\C-c\C-t\C-s" 'TeX-source-correlate-mode)
- (define-key map "\C-c\C-t\C-r" 'TeX-pin-region)
- (define-key map "\C-c\C-w" 'TeX-toggle-debug-bad-boxes); to be
removed
- (define-key map "\C-c\C-t\C-b" 'TeX-toggle-debug-bad-boxes)
- (define-key map "\C-c\C-t\C-w" 'TeX-toggle-debug-warnings)
- (define-key map "\C-c\C-t\C-x" 'TeX-toggle-suppress-ignored-warnings)
- (define-key map "\C-c\C-v" 'TeX-view)
+ ;; (define-key map "." #'TeX-insert-punctuation)
+ ;; (define-key map "," #'TeX-insert-punctuation)
+ (define-key map "\C-c{" #'TeX-insert-braces)
+ (define-key map "\C-c\C-f" #'TeX-font)
+ (define-key map "\C-c\C-m" #'TeX-insert-macro)
+ (define-key map "\\" #'TeX-insert-backslash)
+ (define-key map "^" #'TeX-insert-sub-or-superscript)
+ (define-key map "_" #'TeX-insert-sub-or-superscript)
+ (define-key map "\e\t" #'TeX-complete-symbol) ;*** Emacs 19 way
+
+ (define-key map "\C-c'" #'TeX-comment-or-uncomment-paragraph) ;*** Old
way
+ (define-key map "\C-c:" #'comment-or-uncomment-region) ;*** Old way
+ (define-key map "\C-c\"" #'TeX-uncomment) ;*** Old way
+
+ (define-key map "\C-c;" #'comment-or-uncomment-region)
+ (define-key map "\C-c%" #'TeX-comment-or-uncomment-paragraph)
+
+ (define-key map "\C-c\C-t\C-p" #'TeX-PDF-mode)
+ (define-key map "\C-c\C-t\C-i" #'TeX-interactive-mode)
+ (define-key map "\C-c\C-t\C-s" #'TeX-source-correlate-mode)
+ (define-key map "\C-c\C-t\C-r" #'TeX-pin-region)
+ (define-key map "\C-c\C-w" #'TeX-toggle-debug-bad-boxes); to be
removed
+ (define-key map "\C-c\C-t\C-b" #'TeX-toggle-debug-bad-boxes)
+ (define-key map "\C-c\C-t\C-w" #'TeX-toggle-debug-warnings)
+ (define-key map "\C-c\C-t\C-x" #'TeX-toggle-suppress-ignored-warnings)
+ (define-key map "\C-c\C-v" #'TeX-view)
;; From tex-buf.el
- (define-key map "\C-c\C-d" 'TeX-save-document)
- (define-key map "\C-c\C-r" 'TeX-command-region)
- (define-key map "\C-c\C-b" 'TeX-command-buffer)
- (define-key map "\C-c\C-c" 'TeX-command-master)
- (define-key map "\C-c\C-a" 'TeX-command-run-all)
- (define-key map "\C-c\C-k" 'TeX-kill-job)
- (define-key map "\C-c\C-l" 'TeX-recenter-output-buffer)
- (define-key map "\C-c^" 'TeX-home-buffer)
- (define-key map "\C-c`" 'TeX-next-error)
+ (define-key map "\C-c\C-d" #'TeX-save-document)
+ (define-key map "\C-c\C-r" #'TeX-command-region)
+ (define-key map "\C-c\C-b" #'TeX-command-buffer)
+ (define-key map "\C-c\C-c" #'TeX-command-master)
+ (define-key map "\C-c\C-a" #'TeX-command-run-all)
+ (define-key map "\C-c\C-k" #'TeX-kill-job)
+ (define-key map "\C-c\C-l" #'TeX-recenter-output-buffer)
+ (define-key map "\C-c^" #'TeX-home-buffer)
+ (define-key map "\C-c`" #'TeX-next-error)
;; Remap bindings of `next-error'
- (define-key map [remap next-error] 'TeX-next-error)
+ (define-key map [remap next-error] #'TeX-next-error)
;; Remap bindings of `previous-error'
- (define-key map [remap previous-error] 'TeX-previous-error)
+ (define-key map [remap previous-error] #'TeX-previous-error)
;; From tex-fold.el
- (define-key map "\C-c\C-o\C-f" 'TeX-fold-mode)
+ (define-key map "\C-c\C-o\C-f" #'TeX-fold-mode)
;; Multifile
- (define-key map "\C-c_" 'TeX-master-file-ask) ;*** temporary
+ (define-key map "\C-c_" #'TeX-master-file-ask) ;*** temporary
map)
"Keymap for common TeX and LaTeX commands.")
@@ -5759,7 +5759,7 @@ to use, as specified by `TeX-font-list'."
(let ((help (concat
"Font list: "
"KEY TEXTFONT MATHFONT\n\n"
- (mapconcat 'TeX-describe-font-entry
+ (mapconcat #'TeX-describe-font-entry
TeX-font-list "\n"))))
(with-output-to-temp-buffer "*Help*"
(set-buffer "*Help*")
@@ -5815,7 +5815,7 @@ See also `TeX-font-replace' and
`TeX-font-replace-function'."
(setq strings (cdr (cdr strings)))
(and (stringp (car strings)) (null (string= (car strings) ""))
(setq cmds (cons (car strings) cmds))))
- (setq regexp (mapconcat 'regexp-quote cmds "\\|"))
+ (setq regexp (mapconcat #'regexp-quote cmds "\\|"))
(save-excursion
(catch 'done
(while t
@@ -6445,7 +6445,7 @@ NAME may be a package, a command, or a document."
(throw 'found t)))))
;; Setup completion list in a format suitable for `completing-read'.
(dolist (elt docs)
- (setq completions (nconc (mapcar 'list (car elt)) completions)))
+ (setq completions (nconc (mapcar #'list (car elt)) completions)))
;; Query user.
(setq name (completing-read
(if contained
@@ -6498,7 +6498,7 @@ NAME may be a package, a command, or a document."
TeX-check-path)
"\\|")
"\\).*\\("
- (mapconcat 'regexp-quote
+ (mapconcat #'regexp-quote
(cons (file-name-nondirectory name)
(TeX-style-list)) "\\|")
"\\)\\.\\("
diff --git a/toolbar-x.el b/toolbar-x.el
index 11919c9..5ba8b25 100644
--- a/toolbar-x.el
+++ b/toolbar-x.el
@@ -1,6 +1,6 @@
;;; toolbar-x.el --- fancy toolbar handling in Emacs and XEmacs
-;; Copyright (C) 2004, 2005, 2008, 2014, 2016 Free Software Foundation, Inc.
+;; Copyright (C) 2004-2021 Free Software Foundation, Inc.
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@@ -320,7 +320,7 @@ inside Emacs. See documentation of that function for more."
`(setq ,var ,count)
`(if (memq ,count ,var)
(setq ,var (delete ,count ,var))
- (setq ,var (sort (cons ,count ,var) '<))))
+ (setq ,var (sort (cons ,count ,var) #'<))))
(toolbarx-refresh))
(when (eq real-save 'always)
`((customize-save-variable
@@ -1108,11 +1108,11 @@ function `toolbar-install-toolbar'."
(t ; otherwise, must be a list
; with 4 strings or image
; descriptors
- (apply 'vector (mapcar (lambda (img)
- (if (stringp img)
- (toolbarx-find-image img)
- img))
- image))))))
+ (apply #'vector (mapcar (lambda (img)
+ (if (stringp img)
+ (toolbarx-find-image img)
+ img))
+ image))))))
(command
(let* ((com (nth 1 (memq :command filtered-props)))
(app (nth 1 (memq :append-command filtered-props)))
- [elpa] branch scratch/auctex-lexbind created (now f8b4d2a), Stefan Monnier, 2021/03/22
- [elpa] scratch/auctex-lexbind ee87fa5 01/10: * font-latex.el (font-latex-make-built-in-keywords): Reorder defs, Stefan Monnier, 2021/03/22
- [elpa] scratch/auctex-lexbind f8b4d2a 10/10: Use UTF-8 for all ELisp files, Stefan Monnier, 2021/03/22
- [elpa] scratch/auctex-lexbind 7f10390 09/10: Prefer lexical closures over hand-built lambda forms, Stefan Monnier, 2021/03/22
- [elpa] scratch/auctex-lexbind 6e60f03 03/10: Use #' rather than ' to quote functions,
Stefan Monnier <=
- [elpa] scratch/auctex-lexbind 78c09ee 04/10: Remove some redundant `:group` arguments, Stefan Monnier, 2021/03/22
- [elpa] scratch/auctex-lexbind 60c12f8 02/10: * font-latex.el (font-latex-make-built-in-keywords): Make it a macro, Stefan Monnier, 2021/03/22
- [elpa] scratch/auctex-lexbind 333ae25 05/10: Don't quote `lambda`, Stefan Monnier, 2021/03/22
- [elpa] scratch/auctex-lexbind 89e707e 08/10: Activate lexical-binding everywhere, Stefan Monnier, 2021/03/22
- [elpa] scratch/auctex-lexbind 7eea3ff 07/10: Miscellaneous minor changes, Stefan Monnier, 2021/03/22
- [elpa] scratch/auctex-lexbind ed12676 06/10: Remove some XEmacs and old-Emacs code, Stefan Monnier, 2021/03/22