]> git.eshelyaron.com Git - emacs.git/commitdiff
Delete Emacs 19 compat code in foldout.el
authorStefan Kangas <stefan@marxist.se>
Tue, 30 Mar 2021 21:26:42 +0000 (23:26 +0200)
committerStefan Kangas <stefan@marxist.se>
Tue, 30 Mar 2021 21:37:09 +0000 (23:37 +0200)
* 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.

lisp/foldout.el

index 2de49d2839ce664a3562f9ef8e34c2241910ef25..3419d7f5981a859adee72e773d17094568eeab73 100644 (file)
@@ -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))
 \f
 
 (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