Mercurial > hg > xemacs-beta

comparison lisp/dragdrop.el @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents abe6d1db359e
children 7039e6323819
comparison
equal deleted inserted replaced
461:120ed4009e51 462:0784d089fdc9
418 (if (featurep 'offix) 418 (if (featurep 'offix)
419 (funcall (intern "offix-start-drag-internal") 419 (funcall (intern "offix-start-drag-internal")
420 event (buffer-substring-no-properties begin end)) 420 event (buffer-substring-no-properties begin end))
421 (error "OffiX functionality not compiled in."))) 421 (error "OffiX functionality not compiled in.")))
422 422
423 (defun gtk-start-drag (event data &optional type)
424 (interactive "esi")
425 (if (featurep 'gtk)
426 (gtk-start-drag-internal event data type)
427 (error "GTK functionality not compiled in.")))
428
429 (defun gtk-start-drag-region (event begin end)
430 (interactive "_er")
431 (if (featurep 'gtk)
432 (gtk-start-drag-internal event (buffer-substring-no-properties begin end) "text/plain")
433 (error "GTK functionality not compiled in.")))
423 434
424 ;;; dragdrop.el ends here 435 ;;; dragdrop.el ends here