(switch-to-buffer (find-file-noselect
(substring (car data) 5))))
;; to-do: open ftp URLs with efs...
- (t
+ (t
;; some other URL, try to fire up some browser for it
(if-fboundp 'browse-url
(browse-url (car data))
;; insert drops of text/* into buffer
;; create new buffer if pointer is outside buffer...
;; but there are many other ways...
- ;;
+ ;;
;; first thing: check if it's only text/plain and if the
;; drop happened inside some buffer. if yes insert it into
;; this buffer (hope it is not encoded in some MIME way)
(defun experimental-dragdrop-drag (event object)
"*{EXPERIMENTAL} The generic drag function.
Tries to do the best with object in the selected protocol.
-Object must comply to the standart drag'n'drop object
+Object must comply to the standart drag'n'drop object
format."
(error "Not implemented"))
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)
- (declare-fboundp (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)
- (declare-fboundp
- (gtk-start-drag-internal
- event (buffer-substring-no-properties begin end) "text/plain"))
- (error "GTK functionality not compiled in.")))
-
;;; dragdrop.el ends here