branch: elpa/helm
commit 3c8d9b181041edafa61380a80c86c804c5bcaaae
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Make a defcustom for helm-ff-drag-mouse-1-default-action
---
helm-files.el | 12 ++++++++----
helm-help.el | 3 +++
2 files changed, 11 insertions(+), 4 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index 66e479a86f..0867943208 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -963,6 +963,14 @@ You want generally to set this to your home desktop
directory.")
It is used when no suitable directory is found at drop place,
generally when dropping outside of an emacs frame."
:type '(repeat (choice string)))
+
+(defcustom helm-ff-drag-mouse-1-default-action 'copy
+ "Default action when dragging files.
+Possible values are `copy', `rsync' or `rename'."
+ :type '(choice
+ (const :tag "Copy" copy)
+ (const :tag "Rsync" rsync)
+ (const :tag "Move" rename)))
;;; Faces
;;
@@ -5595,10 +5603,6 @@ Show the first `helm-ff-history-max-length' elements of
helm-ff-history))))
(put 'helm-find-files-history 'helm-only t)
-(defvar helm-ff-drag-mouse-1-default-action 'copy
- "Default action when dragging files.
-Possible values are `copy', `rsync' or `rename'.")
-
(defun helm-ff-drag-mouse-1-fn (event)
"Drag-and-drop function for `helm-find-files'.
Allows dropping marked files to another frame or window.
diff --git a/helm-help.el b/helm-help.el
index 85bc0779a0..2278c681ad 100644
--- a/helm-help.el
+++ b/helm-help.el
@@ -892,6 +892,9 @@ directories you can choose from, it is nil by default,
customize it to
your needs. Tip: To trigger this from an Emacs full frame, drag to the
border of the Emacs frame.
+By default Helm copy files when using drag-and-drop, you can customize
+`helm-ff-drag-mouse-1-default-action' to modify this.
+
Drag-and-drop to external applications is not supported in Helm, to
achieve this you will have to install external application
[[https://github.com/mwh/dragon][Dragon]]
and use it as follow:
