diff options
Diffstat (limited to 'lisp/term/haiku-win.el')
| -rw-r--r-- | lisp/term/haiku-win.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el index adebab1b0b4..efc0a129062 100644 --- a/lisp/term/haiku-win.el +++ b/lisp/term/haiku-win.el @@ -36,6 +36,9 @@ (require 'menu-bar) (require 'fontset) (require 'dnd) +;; For when building a --without-x configuration, where this is not +;; preloaded. +(eval-when-compile (require 'mwheel)) (add-to-list 'display-format-alist '(".*" . haiku)) @@ -366,14 +369,15 @@ or a pair of markers) and turns it into a file system reference." ((posn-area (event-start event))) ((assoc "refs" string) (with-selected-window window - (dolist (filename (cddr (assoc "refs" string))) - (dnd-handle-one-url window action - (concat "file:" filename))))) + (dnd-handle-multiple-urls + window (mapcar + (lambda (name) (concat "file:" name)) + (cddr (assoc "refs" string))) + action))) ((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 action bf))))) + (dnd-handle-multiple-urls window uri-list action)))) ((assoc "text/plain" string) (with-selected-window window (dolist (text (cddr (assoc "text/plain" string))) |