Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 02:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(handle-shift-selection): New arg.

Browse source
This commit is contained in:
Chong Yidong 2008-04-03 16:37:39 +00:00
parent 99d0850bdf
commit ac1491a77f
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/simple.el
View file

@ -3648,7 +3648,7 @@ mode temporarily."
(t (activate-mark)))
nil))
(defun handle-shift-selection ()
(defun handle-shift-selection (&optional deactivate)
"Check for shift translation, and operate on the mark accordingly.
This is called whenever a command with a `^' character in its
`interactive' spec is invoked while `shift-select-mode' is
@ -3658,8 +3658,11 @@ If the command was invoked through shift-translation, set the
mark and activate the region temporarily, unless it was already
set in this way. If the command was invoked without
shift-translation and a region is temporarily active, deactivate
the mark."
(cond (this-command-keys-shift-translated
the mark.
With optional arg DEACTIVATE, only perform region deactivation."
(cond ((and this-command-keys-shift-translated
(null deactivate))
(unless (and mark-active
(eq (car-safe transient-mark-mode) 'only))
(setq transient-mark-mode