[AUCTeX-diffs] [elpa] externals/auctex 761ffc3 27/67: Remove compatibility code for older emacsen

[Tassilo Horn]

branch: externals/auctex
commit 761ffc3f8ab6d7795609cf6afa5d2bc397d0aa4a
Author: Ikumi Keita <address@hidden>
Commit: Ikumi Keita <address@hidden>

    Remove compatibility code for older emacsen
    
    * font-latex.el (font-latex-doctex-^^A): Remove fallback for case
    `string-to-syntax' isn't available.
---
 font-latex.el | 20 ++++----------------
 1 file changed, 4 insertions(+), 16 deletions(-)

diff --git a/font-latex.el b/font-latex.el
index 61157b9..3640083 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -2124,26 +2124,14 @@ END marks boundaries for searching for quotation ends."
             ;; syntax-table can't deal with.  We could turn it
             ;; into a non-comment, or use `
%' or `%^' as the comment.
             ;; Instead, we include it in the ^^A comment.
-            ;; COMPATIBILITY for Emacs 20 and XEmacs
-            (eval-when-compile (if (fboundp 'string-to-syntax)
-                                   (string-to-syntax "< b")
-                                 '(2097163)))
-          ;; COMPATIBILITY for Emacs 20 and XEmacs
-          (eval-when-compile (if (fboundp 'string-to-syntax)
-                                 (string-to-syntax ">")
-                               '(12)))))
+            (eval-when-compile (string-to-syntax "< b"))
+          (eval-when-compile (string-to-syntax ">"))))
        (let ((end (line-end-position)))
          (if (< end (point-max))
              (put-text-property end (1+ end) 'syntax-table
-                                   ;; COMPATIBILITY for Emacs 20 and XEmacs
                                    (eval-when-compile
-                                     (if (fboundp 'string-to-syntax)
-                                         (string-to-syntax "> b")
-                                       '(2097164))))))
-       ;; COMPATIBILITY for Emacs 20 and XEmacs
-       (eval-when-compile (if (fboundp 'string-to-syntax)
-                              (string-to-syntax "< b")
-                            '(2097163))))))
+                                     (string-to-syntax "> b")))))
+       (eval-when-compile (string-to-syntax "< b")))))
 
 ;; Copy and adaptation of `doctex-font-lock-syntactic-face-function'
 ;; in `tex-mode.el' of CVS Emacs (March 2004)