[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e4611107e5: Fix dired drag and drop actions
From: |
Po Lu |
Subject: |
master e4611107e5: Fix dired drag and drop actions |
Date: |
Fri, 3 Jun 2022 08:36:57 -0400 (EDT) |
branch: master
commit e4611107e5b20e9a0c25c61a360220a48e970efd
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
Fix dired drag and drop actions
* lisp/dired.el (dired-mouse-drag): Make `link' values work
again.
---
lisp/dired.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lisp/dired.el b/lisp/dired.el
index 1ab2c8c38b..4d3d93441b 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1758,14 +1758,14 @@ other marked file as well. Otherwise, unmark all
files."
(if (and (consp filename)
(cdr filename))
(dnd-begin-drag-files filename nil
- (if (eq 'dired-mouse-drag-files
'link)
- 'move 'copy)
+ (if (eq dired-mouse-drag-files
'link)
+ 'link 'copy)
t)
(dnd-begin-file-drag (if (stringp filename)
filename
(car filename))
- nil (if (eq 'dired-mouse-drag-files
'link)
- 'move 'copy)
+ nil (if (eq dired-mouse-drag-files
'link)
+ 'link 'copy)
t))))
(error (when (eq (event-basic-type new-event) 'mouse-1)
(push new-event unread-command-events))))))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e4611107e5: Fix dired drag and drop actions,
Po Lu <=