Mercurial > hg > xemacs-beta
diff lisp/dragdrop.el @ 4790:bc4f2511bbea
Remove support for the OffiX drag-and-drop protocol. See xemacs-patches
message with ID <870180fe0912211421m3e3d7891pdadefef167b50cb4@mail.gmail.com>.
author | Jerry James <james@xemacs.org> |
---|---|
date | Tue, 22 Dec 2009 15:52:06 -0700 |
parents | 79940b592197 |
children | f00192e1cd49 308d34e9f07d |
line wrap: on
line diff
--- a/lisp/dragdrop.el Tue Dec 22 19:07:40 2009 +0900 +++ b/lisp/dragdrop.el Tue Dec 22 15:52:06 2009 -0700 @@ -400,29 +400,6 @@ event nil (list (buffer-substring-no-properties begin end))) (error "CDE functionality not compiled in."))) -;; the OffiX drag stuff will soon move also (perhaps mouse.el) -;; if the drag event is done -(defun offix-start-drag (event data &optional type) - "Implement the OffiX drag operation. -Calls the internal function offix-start-drag-internal to do the actual work. -If type is not given, DndText is assumed." - ;; Oliver Graf <ograf@fga.de> - (interactive "esi") - (if (featurep 'offix) - (funcall (intern "offix-start-drag-internal") event data type) - (error "OffiX functionality not compiled in."))) - -(defun offix-start-drag-region (event begin end) - "Implement the OffiX drag operation for a region. -Calls the internal function offix-start-drag-internal to do the actual work. -This always assumes DndText as type." - ;; Oliver Graf <ograf@fga.de> - (interactive "_er") - (if (featurep 'offix) - (funcall (intern "offix-start-drag-internal") - 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)