emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-27 c2a1396: Make drag and drop on NS open all URLs (bug#43470)


From: Alan Third
Subject: emacs-27 c2a1396: Make drag and drop on NS open all URLs (bug#43470)
Date: Sat, 3 Oct 2020 10:43:02 -0400 (EDT)

branch: emacs-27
commit c2a13969e41265506c9965b4b15c064155d3fb78
Author: Alan Third <alan@idiocy.org>
Commit: Alan Third <alan@idiocy.org>

    Make drag and drop on NS open all URLs (bug#43470)
    
    * lisp/term/ns-win.el (ns-drag-n-drop): Merge generic and copy
    actions.
    
    Co-authored-by: Daniel Martín <mardani29@yahoo.es>
---
 lisp/term/ns-win.el | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 90024b0..184271d 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -513,15 +513,9 @@ string dropped into the current buffer."
     (set-frame-selected-window nil window)
     (raise-frame)
     (setq window (selected-window))
-    (cond ((memq 'ns-drag-operation-generic operations)
-           ;; Perform the default action for the type.
-           (if (eq type 'file)
-               (dolist (data objects)
-                 (dnd-handle-one-url window 'private (concat "file:" data)))
-             (dnd-insert-text window 'private string)))
-          ((memq 'ns-drag-operation-copy operations)
-           ;; Try to open the file/URL.  If type is nil, try to open
-           ;; it as a URL anyway.
+    (cond ((or (memq 'ns-drag-operation-generic operations)
+               (memq 'ns-drag-operation-copy operations))
+           ;; Perform the default/copy action.
            (dolist (data objects)
              (dnd-handle-one-url window 'private (if (eq type 'file)
                                                      (concat "file:" data)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]