master 72c53fc 4/8: Slight allout.el clean-up

[Lars Ingebrigtsen]

branch: master
commit 72c53fc3e1267bd740bb6a3785814eec8aa794c5
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Slight allout.el clean-up
    
    * lisp/allout.el (allout-end-of-line, allout-mark-active-p): Make
    allout-mark-active-p obsolete, and adjust callers.
---
 lisp/allout.el | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/lisp/allout.el b/lisp/allout.el
index dedad45..170d868 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -2484,20 +2484,16 @@ Outermost is first."
              (allout-back-to-current-heading)
              (allout-end-of-current-line))
             (t
-             (if (not (allout-mark-active-p))
+             (if (not mark-active)
                  (push-mark))
              (allout-end-of-entry))))))
+
 ;;;_   > allout-mark-active-p ()
 (defun allout-mark-active-p ()
   "True if the mark is currently or always active."
-  ;; `(cond (boundp...))' (or `(if ...)') invokes special byte-compiler
-  ;; provisions, at least in GNU Emacs to prevent warnings about lack of,
-  ;; eg, region-active-p.
-  (cond ((boundp 'mark-active)
-         mark-active)
-        ((fboundp 'region-active-p)
-         (region-active-p))
-        (t)))
+  (declare (obsolete nil "28.1"))
+  mark-active)
+
 ;;;_   > allout-next-heading ()
 (defsubst allout-next-heading ()
   "Move to the heading for the topic (possibly invisible) after this one.