From: Po Lu <luangruo@yahoo.com>
Date: Wed, 16 Mar 2022 13:24:18 +0000 (+0000)
Subject: Add support for dropping plain text on Haiku
X-Git-Tag: emacs-29.0.90~1931^2~1099
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79f3d9c8f317113b03de094f7989352724621154;p=emacs.git

Add support for dropping plain text on Haiku

* haiku-win.el (haiku-dnd-handle-drag-n-drop-event): Handle
`text/plain'.
---

diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index 322f1a18de6..3b3f2f0874e 100644
--- a/lisp/term/haiku-win.el
+++ b/lisp/term/haiku-win.el
@@ -137,7 +137,16 @@ If TYPE is nil, return \"text/plain\"."
         (dolist (filename (cddr (assoc "refs" string)))
           (dnd-handle-one-url window 'private
                               (concat "file:" filename)))))
-     (t (message "Don't know how to drop: %s" event)))))
+     ((assoc "text/plain" string)
+      (with-selected-window window
+        (raise-frame)
+        (dolist (text (cddr (assoc "text/plain" string)))
+          (goto-char (posn-point (event-start event)))
+          (dnd-insert-text window 'private
+                           (if (multibyte-string-p text)
+                               text
+                             (decode-coding-string text 'undecided))))))
+     (t (message "Don't know how to drop any of: %s" (mapcar #'car string))))))
 
 (define-key special-event-map [drag-n-drop]
             'haiku-dnd-handle-drag-n-drop-event)