From: Stefan Kangas Date: Sat, 19 Aug 2023 10:25:25 +0000 (+0200) Subject: Remove Emacs 24 compat code from reftex X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=89833430f1ff941df88a0453268e06d4904e171a;p=emacs.git Remove Emacs 24 compat code from reftex * lisp/textmodes/reftex-index.el (reftex-display-index): * lisp/textmodes/reftex-toc.el (reftex-toc): Assume that we have 'cursor-intangible-mode', which was added in Emacs 25. --- diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el index c7a297d5dac..c8a45f068d1 100644 --- a/lisp/textmodes/reftex-index.el +++ b/lisp/textmodes/reftex-index.el @@ -539,11 +539,7 @@ SPC=view TAB=goto RET=goto+hide [e]dit [q]uit [r]escan [f]ollow [?]Help (if (reftex-use-fonts) (put-text-property (point-min) (point) 'face reftex-index-header-face)) - (if (fboundp 'cursor-intangible-mode) - (cursor-intangible-mode 1) - ;; If `cursor-intangible' is not available, fallback on the old - ;; intrusive `intangible' property. - (put-text-property (point-min) (point) 'intangible t)) + (cursor-intangible-mode 1) (add-text-properties (point-min) (point) '(cursor-intangible t front-sticky (cursor-intangible) diff --git a/lisp/textmodes/reftex-toc.el b/lisp/textmodes/reftex-toc.el index 858d805332a..de49b7c6c70 100644 --- a/lisp/textmodes/reftex-toc.el +++ b/lisp/textmodes/reftex-toc.el @@ -265,11 +265,7 @@ SPC=view TAB=goto RET=goto+hide [q]uit [r]escan [l]abels [f]ollow [x]r [?]Help (if (reftex-use-fonts) (put-text-property (point-min) (point) 'font-lock-face reftex-toc-header-face)) - (if (fboundp 'cursor-intangible-mode) - (cursor-intangible-mode 1) - ;; If `cursor-intangible' is not available, fallback on the old - ;; intrusive `intangible' property. - (put-text-property (point-min) (point) 'intangible t)) + (cursor-intangible-mode 1) (add-text-properties (point-min) (point) '(cursor-intangible t front-sticky (cursor-intangible)