From 00a5bc9314cf18c8b6e3801765c832fca5f9f3f1 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Thu, 2 Jun 2022 07:05:21 +0000 Subject: [PATCH] Handle dropping text/uri-list on Haiku * lisp/term/haiku-win.el (window-system-initialization): Remove extra whitespace. (haiku-drag-and-drop): Handle "text/uri-list". --- lisp/term/haiku-win.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el index 2a31dd38c81..2fa27ed08af 100644 --- a/lisp/term/haiku-win.el +++ b/lisp/term/haiku-win.el @@ -185,7 +185,6 @@ The resources should be a list of strings in COMMAND-LINE-RESOURCES." "Set up the window system. WINDOW-SYSTEM must be HAIKU. DISPLAY may be set to the name of a display that will be initialized." (cl-assert (not haiku-initialized)) - (create-default-fontset) (when x-command-line-resources (haiku--handle-x-command-line-resources @@ -307,6 +306,11 @@ or a pair of markers) and turns it into a file system reference." (dolist (filename (cddr (assoc "refs" string))) (dnd-handle-one-url window 'private (concat "file:" filename))))) + ((assoc "text/uri-list" string) + (dolist (text (cddr (assoc "text/uri-list" string))) + (let ((uri-list (split-string text "[\0\r\n]" t))) + (dolist (bf uri-list) + (dnd-handle-one-url window 'private bf))))) ((assoc "text/plain" string) (with-selected-window window (raise-frame)