branch: externals/auctex
commit 761ffc3f8ab6d7795609cf6afa5d2bc397d0aa4a
Author: Ikumi Keita <[email protected]>
Commit: Ikumi Keita <[email protected]>
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 `\n%' 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)
