XEmacs 21.2.46 "Urania".

[chise/xemacs-chise.git.1] / lisp / dragdrop.el

diff --git a/lisp/dragdrop.el b/lisp/dragdrop.el
index 1250482..ec5002f 100644 (file)
--- 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