branch: externals/auctex commit 64a8e189a3009bc4b467cd886a9d8edbab390b9b Author: Ikumi Keita <ik...@ikumi.que.jp> Commit: Ikumi Keita <ik...@ikumi.que.jp>
Remove compatibility code * bib-cite.el (bib-display-or-find-label): * font-latex.el (font-latex-fontify-region): * latex.el (TeX-read-label): Remove compatibility code for emacs<25. * tex.el (TeX-run-ispell-on-document): Add `make-obsolete' for `TeX-run-ispell-on-document'. --- bib-cite.el | 6 +----- font-latex.el | 7 ++----- latex.el | 5 +---- tex.el | 2 +- 4 files changed, 5 insertions(+), 15 deletions(-) diff --git a/bib-cite.el b/bib-cite.el index a6405046f5..aa594a1d51 100644 --- a/bib-cite.el +++ b/bib-cite.el @@ -1429,11 +1429,7 @@ If within a multi-file document (in AUCTeX only) (if (bib-Is-hidden) (save-excursion (beginning-of-line) - ;; COMPATIBILITY for emacs<25. - (if (fboundp 'outline-show-entry) - (outline-show-entry) - (with-no-warnings - (show-entry))))))) + (outline-show-entry))))) (defvar bib-label-prompt-map (let ((map (make-sparse-keymap))) diff --git a/font-latex.el b/font-latex.el index c49a698754..935d12a786 100644 --- a/font-latex.el +++ b/font-latex.el @@ -1364,11 +1364,8 @@ then call `font-latex-set-syntactic-keywords'."))) Take care when the actually fonfified region was extended beyond END." (setq font-latex--updated-region-end end) (let ((res (font-lock-default-fontify-region beg end verbose))) - ;; COMPATIBILITY for older emacsen. Return value for jit-lock - ;; is meaningful for only newer emacsen. - (if (eq (car-safe res) 'jit-lock-bounds) - `(jit-lock-bounds ,(cadr res) . - ,(max (cddr res) font-latex--updated-region-end))))) + `(jit-lock-bounds ,(cadr res) . + ,(max (cddr res) font-latex--updated-region-end)))) ;; Copy and adaption of `tex-font-lock-unfontify-region' from ;; tex-mode.el in GNU Emacs on 2004-08-04. diff --git a/latex.el b/latex.el index 6b55c6a2ff..855d9717b5 100644 --- a/latex.el +++ b/latex.el @@ -2142,10 +2142,7 @@ confirmation before proceeding." (assoc label (LaTeX-label-list))) (ding) (when (y-or-n-p - ;; Emacs 24 compatibility - (if (fboundp 'format-message) - (format-message "Label `%s' exists. Use anyway? " label) - (format "Label `%s' exists. Use anyway? " label))) + (format-message "Label `%s' exists. Use anyway? " label)) (setq valid t))) (t (setq valid t)))) diff --git a/tex.el b/tex.el index 8a80f13fbb..b881e91c45 100644 --- a/tex.el +++ b/tex.el @@ -8096,7 +8096,7 @@ This function is *obsolete* and only here for compatibility reasons. Use `TeX-run-function' instead." (interactive) (TeX-ispell-document "")) - +(make-obsolete 'TeX-run-ispell-on-document 'TeX-run-function "2006-02-07") ;;; Command Sentinels