[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/auctex-lexbind 333ae25 05/10: Don't quote `lambda`
From: |
Stefan Monnier |
Subject: |
[elpa] scratch/auctex-lexbind 333ae25 05/10: Don't quote `lambda` |
Date: |
Mon, 22 Mar 2021 22:58:14 -0400 (EDT) |
branch: scratch/auctex-lexbind
commit 333ae25863dc8d6c358ff588cf9614fddfed7912
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
Don't quote `lambda`
---
font-latex.el | 2 +-
latex.el | 10 +++++-----
preview.el | 13 ++++++++-----
tex.el | 10 +++++-----
texmathp.el | 2 +-
5 files changed, 20 insertions(+), 17 deletions(-)
diff --git a/font-latex.el b/font-latex.el
index 12da6e8..6f12a45 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -115,7 +115,7 @@ If nil, quoted content will not be fontified."
:type '(choice (const auto) (const french) (const german) (const nil))
:group 'font-latex)
(put 'font-latex-quotes 'safe-local-variable
- '(lambda (x) (memq x '(auto french german nil))))
+ (lambda (x) (memq x '(auto french german nil))))
(defun font-latex-add-quotes (quotes)
"Add QUOTES to `font-latex-quote-list'.
diff --git a/latex.el b/latex.el
index b1fb433..6a9f991 100644
--- a/latex.el
+++ b/latex.el
@@ -4802,11 +4802,11 @@ Setting this variable directly does not take effect;
use \\[customize]."
:group 'LaTeX-math
:initialize #'custom-initialize-default
- :set '(lambda (symbol value)
- (define-key LaTeX-math-mode-map (LaTeX-math-abbrev-prefix) t)
- (set-default symbol value)
- (define-key LaTeX-math-mode-map
- (LaTeX-math-abbrev-prefix) LaTeX-math-keymap))
+ :set (lambda (symbol value)
+ (define-key LaTeX-math-mode-map (LaTeX-math-abbrev-prefix) t)
+ (set-default symbol value)
+ (define-key LaTeX-math-mode-map
+ (LaTeX-math-abbrev-prefix) LaTeX-math-keymap))
:type '(string :tag "Key sequence"))
(defun LaTeX-math-abbrev-prefix ()
diff --git a/preview.el b/preview.el
index 68dd2bb..96fea04 100644
--- a/preview.el
+++ b/preview.el
@@ -2390,11 +2390,14 @@ BUFFER-MISC is the appropriate data to be used."
'(if (boundp 'desktop-buffer-mode-handlers)
(add-to-list 'desktop-buffer-mode-handlers
'(latex-mode . desktop-buffer-preview))
- (add-hook 'desktop-buffer-handlers '(lambda ()
- (desktop-buffer-preview
- desktop-buffer-file-name
- desktop-buffer-name
- desktop-buffer-misc)))))
+ (defvar desktop-buffer-file-name)
+ (defvar desktop-buffer-name)
+ (defvar desktop-buffer-misc)
+ (add-hook 'desktop-buffer-handlers (lambda ()
+ (desktop-buffer-preview
+ desktop-buffer-file-name
+ desktop-buffer-name
+ desktop-buffer-misc)))))
(defcustom preview-auto-cache-preamble 'ask
"Whether to generate a preamble cache format automatically.
diff --git a/tex.el b/tex.el
index 80de134..2ed3d91 100644
--- a/tex.el
+++ b/tex.el
@@ -2289,9 +2289,9 @@ the Emacs manual) to set this variable permanently for
each file."
(string :format "%v")))
(make-variable-buffer-local 'TeX-master)
(put 'TeX-master 'safe-local-variable
- '(lambda (x)
- (or (stringp x)
- (member x (quote (t nil shared dwim))))))
+ (lambda (x)
+ (or (stringp x)
+ (member x (quote (t nil shared dwim))))))
(defcustom TeX-one-master "\\.\\(texi?\\|dtx\\)$"
"Regular expression matching ordinary TeX files.
@@ -6648,8 +6648,8 @@ error."
(unless (member elt (default-value 'desktop-locals-to-save))
(setq-default desktop-locals-to-save
(cons elt (default-value 'desktop-locals-to-save)))))
- (add-hook 'desktop-after-read-hook '(lambda ()
- (TeX-set-mode-name t)))))
+ (add-hook 'desktop-after-read-hook (lambda ()
+ (TeX-set-mode-name t)))))
;; delsel.el, `delete-selection-mode'
(put 'TeX-newline 'delete-selection t)
diff --git a/texmathp.el b/texmathp.el
index cd9336b..ac2b75c 100644
--- a/texmathp.el
+++ b/texmathp.el
@@ -212,7 +212,7 @@ The structure of each entry is (NAME TYPE)
`sw-on' Switch: turns math-mode of following text on
`sw-off' Switch: turns math-mode of following text off
`sw-toggle' Switch: toggles math mode of following text"
- :set '(lambda (symbol value) (set-default symbol value) (texmathp-compile))
+ :set (lambda (symbol value) (set-default symbol value) (texmathp-compile))
:type
'(repeat
(list :value ("" env-on)
- [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, 2021/03/22
- [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 <=
- [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