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

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