diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2019-06-25 13:40:32 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2019-06-25 13:40:32 +0100 |
| commit | 0d51f542361752651f3424f539e3edd24ec6a4cc (patch) | |
| tree | f9692079846fcfe1c2d3966b6614e14bdbe3e2f4 /lisp/textmodes/tex-mode.el | |
| parent | b060c81bb8a157c4cd1d3b7643c73e67f3831fbc (diff) | |
| download | emacs-0d51f542361752651f3424f539e3edd24ec6a4cc.tar.gz | |
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.
Diffstat (limited to 'lisp/textmodes/tex-mode.el')
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 4511354a3d1..91c580adec4 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") |