From: Alan Third <alan@idiocy.org>
Date: Sun, 27 Sep 2020 09:55:32 +0000 (+0100)
Subject: Make drag and drop on NS open all URLs (bug#43470)
X-Git-Tag: emacs-27.1.90~117
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c2a13969e4;p=emacs.git

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

diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 90024b001f7..184271d9e6a 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)