Commit 337c561c authored by Chong Yidong's avatar Chong Yidong
Browse files

* simple.el (handle-shift-selection): Clarify docstring.

parent 47af2f4b
2009-04-05 Chong Yidong <cyd@stupidchicken.com>
* simple.el (handle-shift-selection): Clarify docstring.
2009-04-05 Michael Albinus <michael.albinus@gmx.de>
 
* dired-aux.el (dired-copy-file-recursive): Set mode to "700" if
......
......@@ -3760,20 +3760,20 @@ shift-translation."
:group 'editing-basics)
(defun handle-shift-selection ()
"Activate/deactivate mark depending on invocation thru ``shift translation.''
\(See `this-command-keys-shift-translated' for the meaning of
shift translation.)
This is called whenever a command with a `^' character in its
`interactive' spec is invoked.
Its behavior is controlled by `shift-select-mode'.
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, or if the region was activated by the mouse,
deactivate the mark if the region is temporarily active."
"Activate/deactivate mark depending on invocation thru shift translation.
This function is called by `call-interactively' when a command
with a `^' character in its `interactive' spec is invoked, before
running the command itself.
If `shift-select-mode' is enabled and the command was invoked
through shift translation, set the mark and activate the region
temporarily, unless it was already set in this way. See
`this-command-keys-shift-translated' for the meaning of shift
translation.
Otherwise, if the region has been activated temporarily,
deactivate it, and restore the variable `transient-mark-mode' to
its earlier value."
(cond ((and shift-select-mode this-command-keys-shift-translated)
(unless (and mark-active
(eq (car-safe transient-mark-mode) 'only))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment