master e4611107e5: Fix dired drag and drop actions

[Po Lu]

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))))))))))