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',
then if that modifier key is pressed when dropping the region, region
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"
:group 'mouse)