--- a/lisp/frame.el	Mon Aug 13 10:35:07 2007 +0200
+++ b/lisp/frame.el	Mon Aug 13 10:35:54 2007 +0200
@@ -835,41 +835,6 @@
 (or deselect-frame-hook
     (add-hook 'deselect-frame-hook 'default-deselect-frame-hook))
 
-(defun cde-start-drag (begin end)
-  "Implement the CDE drag operation.
-Calls the internal function cde-start-drag-internal to do the actual work."
-  (interactive "_r")
-  (if (featurep 'cde)
-      ;; Avoid build-time doc string warning by calling the function
-      ;; in the following roundabout way:
-      (funcall (intern "cde-start-drag-internal")
-	       (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.")))
-
-
 
 ;;; Application-specific frame-management