diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-03-30 23:26:42 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-03-30 23:37:09 +0200 |
| commit | 3c00496baa5f2017a58ab43dcafeebe7a92658e1 (patch) | |
| tree | 6e974384ca5161eb6ba334a4ba3b940f2f0df37e /lisp/foldout.el | |
| parent | d3aac3b34cc730b8a30ede34b0c77864f8f5a4b5 (diff) | |
| download | emacs-3c00496baa5f2017a58ab43dcafeebe7a92658e1.tar.gz emacs-3c00496baa5f2017a58ab43dcafeebe7a92658e1.tar.bz2 emacs-3c00496baa5f2017a58ab43dcafeebe7a92658e1.zip | |
Delete Emacs 19 compat code in foldout.el
* lisp/foldout.el (foldout-hide-flag):
(foldout-show-flag): Delete Emacs 19 compat code and make obsolete.
(foldout-exit-fold): Don't use above obsolete variable.
Diffstat (limited to 'lisp/foldout.el')
| -rw-r--r-- | lisp/foldout.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/lisp/foldout.el b/lisp/foldout.el index 2de49d2839c..3419d7f5981 100644 --- a/lisp/foldout.el +++ b/lisp/foldout.el @@ -230,14 +230,6 @@ An end marker of nil means the fold ends after (point-max).") (setcdr outl-entry (nconc foldout-entry (cdr outl-entry))) )) -;; outline-flag-region has different `flag' values in outline.el and -;; noutline.el for hiding and showing text. - -(defconst foldout-hide-flag - (if (featurep 'noutline) t ?\^M)) - -(defconst foldout-show-flag - (if (featurep 'noutline) nil ?\n)) (defun foldout-zoom-subtree (&optional exposure) @@ -364,8 +356,7 @@ exited and text is left visible." ;; make sure the next heading is exposed (if end-marker - (outline-flag-region end-of-subtree beginning-of-heading - foldout-show-flag))) + (outline-flag-region end-of-subtree beginning-of-heading nil))) ;; zap the markers so they don't slow down editing (set-marker start-marker nil) @@ -551,6 +542,14 @@ Valid modifiers are shift, control, meta, alt, hyper and super.") (define-key outline-minor-mode-map mouse-3 'foldout-mouse-hide-or-exit) )) +;; Obsolete. + +(defconst foldout-hide-flag t) +(make-obsolete-variable 'foldout-hide-flag nil "28.1") + +(defconst foldout-show-flag nil) +(make-obsolete-variable 'foldout-show-flag nil "28.1") + (provide 'foldout) ;;; foldout.el ends here |