X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fdragdrop.el;h=ec5002f8864f7c102d3093f3184eff40f25af443;hb=36ab42e855f7b8c2db80d3a3a38864bff18ae161;hp=12504825e528c9c70af40e4bc9a3598d7a935aab;hpb=59eec5f21669e81977b5b1fe9bf717cab49cf7fb;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/dragdrop.el b/lisp/dragdrop.el
index 1250482..ec5002f 100644
--- a/lisp/dragdrop.el
+++ b/lisp/dragdrop.el
@@ -420,5 +420,16 @@ This always assumes DndText as type."
 	       event (buffer-substring-no-properties begin end))
     (error "OffiX functionality not compiled in.")))
 
+(defun gtk-start-drag (event data &optional type)
+  (interactive "esi")
+  (if (featurep 'gtk)
+      (gtk-start-drag-internal event data type)
+    (error "GTK functionality not compiled in.")))
+
+(defun gtk-start-drag-region (event begin end)
+  (interactive "_er")
+  (if (featurep 'gtk)
+      (gtk-start-drag-internal event (buffer-substring-no-properties begin end) "text/plain")
+    (error "GTK functionality not compiled in.")))
 
 ;;; dragdrop.el ends here