mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-24 19:03:29 +00:00
Code Issues Releases Activity

Slight allout.el clean-up

Browse Source 
* lisp/allout.el (allout-end-of-line, allout-mark-active-p): Make
allout-mark-active-p obsolete, and adjust callers.
This commit is contained in:
Lars Ingebrigtsen 2020-08-11 20:50:16 +02:00
parent a19e9ab834
commit 72c53fc3e1
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/allout.el
View File

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