[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 a7f1546: Improve customization type of 'mouse-dra
From: |
Charles A. Roelli |
Subject: |
[Emacs-diffs] emacs-26 a7f1546: Improve customization type of 'mouse-drag-and-drop-region' |
Date: |
Sun, 15 Oct 2017 06:41:27 -0400 (EDT) |
branch: emacs-26
commit a7f154688d2de911c995be9b640cee36bec66673
Author: Charles A. Roelli <address@hidden>
Commit: Charles A. Roelli <address@hidden>
Improve customization type of 'mouse-drag-and-drop-region'
* lisp/mouse.el (mouse-drag-and-drop-region): Provide a more
precise customization type.
---
lisp/mouse.el | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 169d263..5eeee1e 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 a7f1546: Improve customization type of 'mouse-drag-and-drop-region',
Charles A. Roelli <=