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)