[AUCTeX-diffs] [elpa] externals/auctex 38f9d72 63/67: Remove compatibility code for older emacsen

[Tassilo Horn]

branch: externals/auctex
commit 38f9d72455226e3f59048360d15c349c7cf7b1b9
Author: Ikumi Keita <address@hidden>
Commit: Ikumi Keita <address@hidden>

    Remove compatibility code for older emacsen
    
    * font-latex.el (put):
    * tex-style.el (put):
    Use `booleanp' instead of `TeX-booleanp'.
    * tex.el (put): Use `booleanp' instead of `TeX-booleanp'.
    (TeX-booleanp): Remove.
---
 font-latex.el |  2 +-
 tex-style.el  |  2 +-
 tex.el        | 10 +++-------
 3 files changed, 5 insertions(+), 9 deletions(-)

diff --git a/font-latex.el b/font-latex.el
index 6d07ba8..bd504a8 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -857,7 +857,7 @@ script operators ^ and _ are not displayed."
   :group 'font-latex)
 (put 'font-latex-fontify-script 'safe-local-variable
      (lambda (val)
-       (or (TeX-booleanp val)
+       (or (booleanp val)
           (memq val '(multi-level invisible)))))
 
 (defcustom font-latex-fontify-script-max-level 3
diff --git a/tex-style.el b/tex-style.el
index 5971c9e..b1c32a4 100644
--- a/tex-style.el
+++ b/tex-style.el
@@ -234,7 +234,7 @@ It can be a list of themes or a function.  If it is the 
symbol
 This variable is intended to be used as a file local variable to
 override the autodetection of the biblatex backend.")
 (make-variable-buffer-local 'LaTeX-biblatex-use-Biber)
-(put 'LaTeX-biblatex-use-Biber 'safe-local-variable 'TeX-booleanp)
+(put 'LaTeX-biblatex-use-Biber 'safe-local-variable #'booleanp)
 
 ;; style/comment.el
 
diff --git a/tex.el b/tex.el
index 6acf13f..5303ece 100644
--- a/tex.el
+++ b/tex.el
@@ -1850,7 +1850,7 @@ SyncTeX are recognized."
 (defalias 'TeX-source-specials-mode 'TeX-source-correlate-mode)
 (make-obsolete 'TeX-source-specials-mode 'TeX-source-correlate-mode "11.86")
 (defalias 'tex-source-correlate-mode 'TeX-source-correlate-mode)
-(put 'TeX-source-correlate-mode 'safe-local-variable 'TeX-booleanp)
+(put 'TeX-source-correlate-mode 'safe-local-variable #'booleanp)
 ;; We do not want the custom variable to require tex.el.  This is only
 ;; necessary if AUCTeX was compiled with Emacs 21.
 (put 'TeX-source-correlate-mode 'custom-requests nil)
@@ -1995,7 +1995,7 @@ enabled and the `synctex' binary is available."
   :group 'TeX-command
   :set 'TeX-mode-set
   :type 'boolean)
-(put 'TeX-PDF-mode 'safe-local-variable 'TeX-booleanp)
+(put 'TeX-PDF-mode 'safe-local-variable #'booleanp)
 
 (define-minor-mode TeX-PDF-mode
   "Minor mode for using PDFTeX.
@@ -2093,7 +2093,7 @@ Programs should not use this variable directly but the 
function
   :group 'TeX-command
   :type 'boolean)
 (make-variable-buffer-local 'TeX-PDF-via-dvips-ps2pdf)
-(put 'TeX-PDF-via-dvips-ps2pdf 'safe-local-variable 'TeX-booleanp)
+(put 'TeX-PDF-via-dvips-ps2pdf 'safe-local-variable #'booleanp)
 (make-obsolete-variable 'TeX-PDF-via-dvips-ps2pdf 'TeX-PDF-from-DVI "11.90")
 
 (defun TeX-PDF-from-DVI ()
@@ -4634,10 +4634,6 @@ See `match-data' for details."
       (buffer-substring-no-properties (match-beginning n) (match-end n))
     ""))
 
-(defun TeX-booleanp (arg)
-  "Return non-nil if ARG is t or nil."
-  (memq arg '(t nil)))
-
 (defun TeX-looking-at-backward (regexp &optional limit)
   "Return non-nil if the text before point matches REGEXP.
 Optional second argument LIMIT gives a max number of characters