emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/auctex 64a8e189a3 19/77: Remove compatibility code


From: Tassilo Horn
Subject: [elpa] externals/auctex 64a8e189a3 19/77: Remove compatibility code
Date: Fri, 26 Aug 2022 16:06:33 -0400 (EDT)

branch: externals/auctex
commit 64a8e189a3009bc4b467cd886a9d8edbab390b9b
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@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
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]