[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-27 c2a1396: Make drag and drop on NS open all URLs (bug#43470),
Alan Third <=