diff options
| author | Charles A. Roelli <charles@aurox.ch> | 2017-10-15 12:40:34 +0200 |
|---|---|---|
| committer | Charles A. Roelli <charles@aurox.ch> | 2017-10-15 12:40:34 +0200 |
| commit | a7f154688d2de911c995be9b640cee36bec66673 (patch) | |
| tree | 05f0ca1c109911005362307fb76dfcae59e9597d | |
| parent | 864734d112249bac120764f1564e008231ebb6e8 (diff) | |
| download | emacs-a7f154688d2de911c995be9b640cee36bec66673.tar.gz | |
Improve customization type of 'mouse-drag-and-drop-region'
* lisp/mouse.el (mouse-drag-and-drop-region): Provide a more
precise customization type.
| -rw-r--r-- | lisp/mouse.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 169d2632f4f..5eeee1ec52c 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -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) |