branch: externals/auctex
commit 49720cea6e3ffb4cf84453c4852435496593373b
Author: Ikumi Keita <[email protected]>
Commit: Ikumi Keita <[email protected]>
Remove compatibility code for older emacsen
* context.el (ConTeXt-mode-common-initialization):
* latex.el (TeX-latex-mode):
* plain-tex.el (TeX-plain-tex-mode, ams-tex-mode):
* tex-info.el (TeX-texinfo-mode):
Use `run-mode-hooks' instead of `TeX-run-mode-hooks'.
* tex.el (TeX-run-mode-hooks): Remove.
---
context.el | 2 +-
latex.el | 2 +-
plain-tex.el | 4 ++--
tex-info.el | 2 +-
tex.el | 3 ---
5 files changed, 5 insertions(+), 8 deletions(-)
diff --git a/context.el b/context.el
index 5622d8a..db2f86f 100644
--- a/context.el
+++ b/context.el
@@ -1782,7 +1782,7 @@ i.e. you do _not_ have to cater for this yourself by
adding \\\\' or $."
;; run hooks
(setq TeX-command-default "ConTeXt")
(setq TeX-sentinel-default-function 'TeX-ConTeXt-sentinel)
- (TeX-run-mode-hooks 'text-mode-hook 'TeX-mode-hook 'ConTeXt-mode-hook))
+ (run-mode-hooks 'text-mode-hook 'TeX-mode-hook 'ConTeXt-mode-hook))
(defun context-guess-current-interface ()
"Guess what ConTeXt interface the current buffer is using."
diff --git a/latex.el b/latex.el
index 3b8cc5c..d260006 100644
--- a/latex.el
+++ b/latex.el
@@ -5926,7 +5926,7 @@ of `LaTeX-mode-hook'."
(apply #'append
(mapcar #'cdr LaTeX-provided-class-options)))))
nil t)
- (TeX-run-mode-hooks 'text-mode-hook 'TeX-mode-hook 'LaTeX-mode-hook)
+ (run-mode-hooks 'text-mode-hook 'TeX-mode-hook 'LaTeX-mode-hook)
(when (fboundp 'LaTeX-preview-setup)
(LaTeX-preview-setup))
(TeX-set-mode-name)
diff --git a/plain-tex.el b/plain-tex.el
index 4be0e3d..af1a74d 100644
--- a/plain-tex.el
+++ b/plain-tex.el
@@ -138,7 +138,7 @@ of `plain-TeX-mode-hook'."
(add-hook 'tool-bar-mode-on-hook 'plain-TeX-maybe-install-toolbar nil t)
(when (and (boundp 'tool-bar-mode) tool-bar-mode)
(plain-TeX-maybe-install-toolbar))
- (TeX-run-mode-hooks 'text-mode-hook 'TeX-mode-hook 'plain-TeX-mode-hook)
+ (run-mode-hooks 'text-mode-hook 'TeX-mode-hook 'plain-TeX-mode-hook)
(TeX-set-mode-name))
(defun plain-TeX-common-initialization ()
@@ -314,7 +314,7 @@ of `AmS-TeX-mode-hook'."
(setq TeX-base-mode-name "AmS-TeX")
(setq TeX-command-default "AmSTeX")
- (TeX-run-mode-hooks 'text-mode-hook 'TeX-mode-hook 'AmS-TeX-mode-hook)
+ (run-mode-hooks 'text-mode-hook 'TeX-mode-hook 'AmS-TeX-mode-hook)
(TeX-set-mode-name))
(defcustom AmSTeX-clean-intermediate-suffixes
diff --git a/tex-info.el b/tex-info.el
index 71e97c2..b1fd236 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -853,7 +853,7 @@ value of `Texinfo-mode-hook'."
(if (and (boundp 'reftex-mode) reftex-mode)
(Texinfo-reftex-hook))
- (TeX-run-mode-hooks 'text-mode-hook 'Texinfo-mode-hook)
+ (run-mode-hooks 'text-mode-hook 'Texinfo-mode-hook)
(TeX-set-mode-name))
(defcustom Texinfo-clean-intermediate-suffixes nil
diff --git a/tex.el b/tex.el
index 625dd60..6acf13f 100644
--- a/tex.el
+++ b/tex.el
@@ -4665,9 +4665,6 @@ to look backward for."
(skip-chars-backward " \t\n")
(bobp)))
-(defalias 'TeX-run-mode-hooks
- (if (fboundp 'run-mode-hooks) 'run-mode-hooks 'run-hooks))
-
(defun TeX-add-to-alist (alist-var new-alist)
"Add NEW-ALIST to the ALIST-VAR.
If an element with the same key as the key of an element of
