procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix dired drag and drop actions

Browse source 
* lisp/dired.el (dired-mouse-drag): Make `link' values work
again.
This commit is contained in:
Po Lu 2022-06-03 20:36:24 +08:00
parent 34a681cfc7
commit e4611107e5
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/dired.el
View file

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