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.
This commit is contained in:
Stefan Kangas 2023-08-19 12:25:25 +02:00
parent 8e8468c46d
commit 89833430f1
2 changed files with 2 additions and 10 deletions

View file

@ -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)

View file

@ -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)