[Emacs-diffs] master 0d51f54: Fix recent tex-mode safe-local-variable changes

[Basil L. Contovounesios]

branch: master
commit 0d51f542361752651f3424f539e3edd24ec6a4cc
Author: Basil L. Contovounesios <address@hidden>
Commit: Basil L. Contovounesios <address@hidden>

    Fix recent tex-mode safe-local-variable changes
    
    * 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 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 4511354..91c580a 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -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")