From 958fa07879974721e86efe083840c2cb9f86d9d7 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 11 Aug 2020 20:53:46 +0200 Subject: [PATCH] Remove compat code from allout.el * lisp/allout.el: (allout-process-exposed): Make allout-region-active-p an obsolete alias, and adjust callers. --- lisp/allout.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/lisp/allout.el b/lisp/allout.el index 170d8687ed9..fad9a172d08 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -5448,11 +5448,9 @@ header and body. The elements of that list are: (cdr format))))))) ;; Put the list with first at front, to last at back: (nreverse result)))) -;;;_ > allout-region-active-p () -(defmacro allout-region-active-p () - (cond ((fboundp 'use-region-p) '(use-region-p)) - ((fboundp 'region-active-p) '(region-active-p)) - (t 'mark-active))) + +(define-obsolete-function-alias 'allout-region-active-p 'region-active-p "28.1") + ;;_ > allout-process-exposed (&optional func from to frombuf ;;; tobuf format) (defun allout-process-exposed (&optional func from to frombuf tobuf @@ -5485,7 +5483,7 @@ Defaults: ; defaulting if necessary: (if (not func) (setq func 'allout-insert-listified)) (if (not (and from to)) - (if (allout-region-active-p) + (if (region-active-p) (setq from (region-beginning) to (region-end)) (setq from (point-min) to (point-max)))) (if frombuf -- 2.39.5