branch: externals/auctex
commit 91ac45a2cba87db0ee0ffac4ff9381e5f3774bfa
Author: Ikumi Keita <ik...@ikumi.que.jp>
Commit: Ikumi Keita <ik...@ikumi.que.jp>
Reduce byte compiler warning
* tex.el (VirTeX-common-initialization,toplevel): Don't set obsolete
ispell variables `ispell-tex-p' and `ispell-tex-major-modes'. Neither
appears in NEWS.* nor source of emacs 24.3.
(TeX-run-ispell): Don't call obsolete functions `spell-buffer' and
`spell-region'.
(): Discard `declare-function' for `spell-buffer'.
Add `defvar' for `ispell-parser' to silence byte compiler.
---
tex.el | 22 +++-------------------
1 file changed, 3 insertions(+), 19 deletions(-)
diff --git a/tex.el b/tex.el
index 38fbd63..0ede5dd 100644
--- a/tex.el
+++ b/tex.el
@@ -56,9 +56,6 @@
nil)
(declare-function tex--prettify-symbols-compose-p "ext:tex-mode"
(start end match))
-;; spell-buffer was removed in 2008 in favor of ispell
-(declare-function spell-buffer "ext:text-mode"
- t)
;; Silence the compiler for variables:
;; tex.el: Variables defined somewhere in this file:
@@ -102,6 +99,7 @@
(defvar tex--prettify-symbols-alist) ; tex-mode.el
(defvar Info-file-list-for-emacs) ; info.el
(defvar dbus-debug) ; dbus.el
+(defvar ispell-parser) ; ispell.el
(defgroup TeX-file nil
"Files used by AUCTeX."
@@ -3743,7 +3741,6 @@ The algorithm is as follows:
;; Ispell support
(set (make-local-variable 'ispell-parser) 'tex)
- (set (make-local-variable 'ispell-tex-p) t)
;; Redefine some standard variables
(make-local-variable 'paragraph-start)
@@ -6474,17 +6471,10 @@ NAME may be a package, a command, or a document."
(defun TeX-run-ispell (_command _string file)
"Run ispell on current TeX buffer."
- (cond ((and (string-equal file (TeX-region-file))
- (fboundp 'ispell-region))
+ (cond ((string-equal file (TeX-region-file))
(call-interactively #'ispell-region))
- ((string-equal file (TeX-region-file))
- (call-interactively #'spell-region))
- ((fboundp 'ispell-buffer)
- (ispell-buffer))
- ((fboundp 'ispell)
- (ispell))
(t
- (spell-buffer))))
+ (ispell-buffer))))
(defun TeX-ispell-document (name)
"Run ispell on all open files belonging to the current document."
@@ -6518,12 +6508,6 @@ NAME may be a package, a command, or a document."
(save-excursion (switch-to-buffer buffer) (ispell-buffer))
t)))))
-;; Some versions of ispell 3 use this.
-(defvar ispell-tex-major-modes nil)
-(setq ispell-tex-major-modes
- (append '(plain-tex-mode ams-tex-mode latex-mode doctex-mode)
- ispell-tex-major-modes))
-
(defcustom TeX-ispell-extend-skip-list t
"Whether to extend regions selected for skipping during spell checking."
:group 'TeX-misc
