[AUCTeX-diffs] Changes to auctex/tex.el

[Ralf Angeli]

Index: auctex/tex.el
diff -u auctex/tex.el:5.568 auctex/tex.el:5.569
--- auctex/tex.el:5.568 Mon May 15 16:06:41 2006
+++ auctex/tex.el       Sun May 21 08:33:20 2006
@@ -897,6 +897,8 @@
   (TeX-set-mode-name 'TeX-source-specials-mode t t))
 (defalias 'tex-source-specials-mode 'TeX-source-specials-mode)
 
+(put 'TeX-source-specials-mode 'safe-local-variable 'TeX-booleanp)
+
 (setq minor-mode-map-alist (delq
                       (assq 'TeX-source-specials-mode minor-mode-map-alist)
                       minor-mode-map-alist))
@@ -1058,9 +1060,7 @@
   :group 'TeX-command
   :set 'TeX-mode-set
   :type 'boolean)
-(put 'TeX-PDF-mode 'safe-local-variable (if (fboundp 'booleanp)
-                                           'booleanp
-                                         '(lambda (x) (memq x '(nil t)))))
+(put 'TeX-PDF-mode 'safe-local-variable 'TeX-booleanp)
 
 (define-minor-mode TeX-PDF-mode
   "Minor mode for using PDFTeX.
@@ -3248,6 +3248,10 @@
       (and (symbolp arg)
           (fboundp arg))))
 
+(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
@@ -4755,7 +4759,6 @@
 function should accept a single argument, the chosen package,
 command, or document name.")
 
-;; key binding?
 (defun TeX-doc (&optional name)
   "Display documentation for string NAME.
 NAME may be a package, a command, or a document."