diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-06-03 20:36:24 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-06-03 20:36:24 +0800 |
| commit | e4611107e5b20e9a0c25c61a360220a48e970efd (patch) | |
| tree | 406339d630afdb006f6f375287f1915a51e3390e /lisp/dired.el | |
| parent | 34a681cfc7a08d50ea0616908d007a8c51643c63 (diff) | |
| download | emacs-e4611107e5b20e9a0c25c61a360220a48e970efd.tar.gz | |
Fix dired drag and drop actions
* lisp/dired.el (dired-mouse-drag): Make `link' values work
again.
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 1ab2c8c38b4..4d3d93441b6 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)))))))))) |