[elpa] scratch/auctex-lexbind 333ae25 05/11: Don't quote `lambda`

[Stefan Monnier]

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)