Mercurial > emacs
changeset 3936:d42ad851d210
(mark-even-if-inactive): New variable.
(mark): Test it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 30 Jun 1993 20:58:28 +0000 |
| parents | cecc2b59e875 |
| children | adcbf7680a35 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Jun 30 20:18:30 1993 +0000 +++ b/lisp/simple.el Wed Jun 30 20:58:28 1993 +0000 @@ -1230,6 +1230,13 @@ (save-excursion (insert-buffer-substring oldbuf start end))))) +(defvar mark-even-if-inactive nil + "*Non-nil means you can use the mark even when inactive. +This option makes a difference in Transient Mark mode. +When the option is non-nil, deactivation of the mark +turns off region highlighting, but commands that use the mark +behave as if the mark were still active.") + (defun mark (&optional force) "Return this buffer's mark value as integer; error if mark inactive. If optional argument FORCE is non-nil, access the mark value @@ -1238,7 +1245,7 @@ If you are using this in an editing command, you are most likely making a mistake; see the documentation of `set-mark'." - (if (or force mark-active) + (if (or force mark-active mark-even-if-inactive) (marker-position (mark-marker)) (error "The mark is not currently active")))