mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

Add use-region-beginning and use-region-end

Browse Source 
* lisp/simple.el (use-region-beginning, use-region-end): New functions.
(use-region-p): Mention them in the doc strings (bug#45607).
This commit is contained in:
Lars Ingebrigtsen 2022-08-09 21:11:29 +02:00
parent 619d5af54a
commit 6ac92c65a8
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/simple.el
View File

@ -6863,6 +6863,14 @@ point otherwise."
:version "23.1"
:group 'editing-basics)
(defun use-region-beginning ()
"Return the start of the region if `use-region-p'."
(and (use-region-p) (region-beginning)))
(defun use-region-end ()
"Return the end of the region if `use-region-p'."
(and (use-region-p) (region-end)))
(defun use-region-p ()
"Return t if the region is active and it is appropriate to act on it.
This is used by commands that act specially on the region under
@ -6873,7 +6881,11 @@ mark is active; furthermore, if `use-empty-active-region' is nil,
the region must not be empty. Otherwise, the return value is nil.
For some commands, it may be appropriate to ignore the value of
`use-empty-active-region'; in that case, use `region-active-p'."
`use-empty-active-region'; in that case, use `region-active-p'.
Also see the convenience functions `use-region-beginning' and
`use-region-end', which may be handy when writing `interactive'
specs."
(and (region-active-p)
(or use-empty-active-region (> (region-end) (region-beginning)))
t))