]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix recent tex-mode safe-local-variable changes
authorBasil L. Contovounesios <contovob@tcd.ie>
Tue, 25 Jun 2019 12:40:32 +0000 (13:40 +0100)
committerBasil L. Contovounesios <contovob@tcd.ie>
Tue, 25 Jun 2019 12:40:32 +0000 (13:40 +0100)
* lisp/textmodes/tex-mode.el (tex-verbatim-environments): Replace
(delq t ...) with more usual (memq nil ...).
(latex-noindent-environments, latex-noindent-commands): Fix typos
and thinkos in safe-local-variable logic.

lisp/textmodes/tex-mode.el

index 4511354a3d1a071f02b096d2f8887f02cbef2175..91c580adec4ee22a05b9b16ba0904b17bd6febab 100644 (file)
@@ -251,7 +251,7 @@ Normally set to either `plain-tex-mode' or `latex-mode'."
   :type 'boolean
   :group 'tex
   :version "23.1")
-(put 'tex-fontify-script 'safe-local-variable 'booleanp)
+(put 'tex-fontify-script 'safe-local-variable #'booleanp)
 
 (defcustom tex-font-script-display '(-0.2 0.2)
   "How much to lower and raise subscript and superscript content.
@@ -670,7 +670,7 @@ An alternative value is \" . \", if you use a font with a narrow period."
 (defvar tex-verbatim-environments
   '("verbatim" "verbatim*"))
 (put 'tex-verbatim-environments 'safe-local-variable
-     (lambda (x) (null (delq t (mapcar #'stringp x)))))
+     (lambda (x) (not (memq nil (mapcar #'stringp x)))))
 
 (eval-when-compile
   (defconst tex-syntax-propertize-rules
@@ -2806,14 +2806,14 @@ Runs the shell command defined by `tex-show-queue-command'."
 (defcustom latex-noindent-environments '("document")
   "Environments whose content is not indented by `tex-indent-basic'."
   :type '(repeat string)
-  :safe (lambda (x) (lambda (x) (memq nil (mapcar #'stringp x))))
+  :safe (lambda (x) (not (memq nil (mapcar #'stringp x))))
   :group 'tex-file
   :version "27.1")
 
 (defcustom latex-noindent-commands '("emph" "footnote")
   "Commands for which `tex-indent-basic' should not be used."
   :type '(repeat string)
-  :safe (lambda (x) (memq nil (mapcar #'stringp x)))
+  :safe (lambda (x) (not (memq nil (mapcar #'stringp x))))
   :group 'tex-file
   :version "27.1")