+(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.")))