Fix dired drag and drop actions

* lisp/dired.el (dired-mouse-drag): Make `link' values work
again.

diff --git a/lisp/dired.el b/lisp/dired.el
index 1ab2c8c38b4891329f8bee44bb11ad8584579664..4d3d93441b65700f86207134fa20e5f374f3e8d5 100644 (file)
--- 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))))))))))