procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(handle-shift-selection): Doc fix. (Bug#2738)

Browse source
This commit is contained in:
Eli Zaretskii 2009-03-21 18:30:38 +00:00
parent ca66f00dcd
commit acc060e4e4
2 changed files with 14 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2009-03-21 Eli Zaretskii <eliz@gnu.org>
* simple.el (handle-shift-selection): Doc fix. (Bug#2738)
2009-03-21 Chong Yidong <cyd@stupidchicken.com>
* files.el (file-modes-rights-to-number): Doc fix.

17
lisp/simple.el
View file

@ -3747,18 +3747,21 @@ mode temporarily."
nil))
(defun handle-shift-selection (&optional deactivate)
"Check for shift translation, and operate on the mark accordingly.
"Activate or deactivate the mark depending on whether the
current command was invoked through ``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 while `shift-select-mode' is
non-nil.
If the command was invoked through shift-translation, set the
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.
With optional arg DEACTIVATE, only perform region deactivation."
set in this way. If the command was invoked without shift
translation, or if the optional argument DEACTIVATE is non-nil,
deactivate the mark if the region is temporarily active."
(cond ((and this-command-keys-shift-translated
(null deactivate))
(unless (and mark-active