From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 11 Aug 2020 18:50:16 +0000 (+0200)
Subject: Slight allout.el clean-up
X-Git-Tag: emacs-28.0.90~6677
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72c53fc3e1267bd740bb6a3785814eec8aa794c5;p=emacs.git

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.
---

diff --git a/lisp/allout.el b/lisp/allout.el
index dedad45f827..170d8687ed9 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.