From: Charles A. Roelli <charles@aurox.ch>
Date: Sun, 15 Oct 2017 10:40:34 +0000 (+0200)
Subject: Improve customization type of 'mouse-drag-and-drop-region'
X-Git-Tag: emacs-26.0.91~553
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a7f154688d;p=emacs.git

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

* lisp/mouse.el (mouse-drag-and-drop-region): Provide a more
precise customization type.
---

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)