diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-11 20:53:46 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-11 21:04:12 +0200 |
| commit | 958fa07879974721e86efe083840c2cb9f86d9d7 (patch) | |
| tree | aa47f88352737f7415c8a8969ad29bebb147a7d8 | |
| parent | 7bbfdcec6478c0b02166f49b1fb519a410b5961e (diff) | |
| download | emacs-958fa07879974721e86efe083840c2cb9f86d9d7.tar.gz | |
Remove compat code from allout.el
* lisp/allout.el: (allout-process-exposed): Make
allout-region-active-p an obsolete alias, and adjust callers.
| -rw-r--r-- | lisp/allout.el | 10 |
1 files 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 |