From e4611107e5b20e9a0c25c61a360220a48e970efd Mon Sep 17 00:00:00 2001 From: Po Lu Date: Fri, 3 Jun 2022 20:36:24 +0800 Subject: [PATCH] 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 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)))))))))) -- 2.39.2