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

Improve customization type of 'mouse-drag-and-drop-region'

Browse source 
* lisp/mouse.el (mouse-drag-and-drop-region): Provide a more
precise customization type.
This commit is contained in:
Charles A. Roelli 2017-10-15 12:40:34 +02:00
parent 864734d112
commit a7f154688d
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/mouse.el
View file

@ -2349,7 +2349,15 @@ choose a font."
If the value is a modifier, such as `control' or `shift' or `meta', If the value is a modifier, such as `control' or `shift' or `meta',
then if that modifier key is pressed when dropping the region, region then if that modifier key is pressed when dropping the region, region
text is copied instead of being cut." text is copied instead of being cut."
:type 'symbol :type `(choice
(const :tag "Disable dragging the region" nil)
,@(mapcar
(lambda (modifier)
`(const :tag ,(format "Enable, but copy with the %s modifier"
modifier)
modifier))
'(alt super hyper shift control meta))
(other :tag "Enable dragging the region" t))
:version "26.1" :version "26.1"
:group 'mouse) :group 'mouse)