;; Copyright (C) 1998 Oliver Graf <ograf@fga.de>
;; Maintainer: XEmacs Development Team, Oliver Graf <ograf@fga.de>
;; Copyright (C) 1998 Oliver Graf <ograf@fga.de>
;; Maintainer: XEmacs Development Team, Oliver Graf <ograf@fga.de>
(defcustom dragdrop-autoload-tm-view nil
"*{EXPERIMENTAL} If non-nil, autoload tm-view to decode MIME data.
(defcustom dragdrop-autoload-tm-view nil
"*{EXPERIMENTAL} If non-nil, autoload tm-view to decode MIME data.
(apply (car flist) `(,event ,object ,@(cdddr flist)))
;; (funcall (car flist) event object)
(throw 'dragdrop-drop-is-done t))
(apply (car flist) `(,event ,object ,@(cdddr flist)))
;; (funcall (car flist) event object)
(throw 'dragdrop-drop-is-done t))
;; to-do: open ftp URLs with efs...
(t
;; some other URL, try to fire up some browser for it
;; to-do: open ftp URLs with efs...
(t
;; some other URL, try to fire up some browser for it
This function uses special data types if the low-level
protocol requires it. It does so by calling
dragdrop-drag-pure-text."
This function uses special data types if the low-level
protocol requires it. It does so by calling
dragdrop-drag-pure-text."
(buffer-substring-no-properties begin end)))
(defun experimental-dragdrop-drag-pure-text (event text)
(buffer-substring-no-properties begin end)))
(defun experimental-dragdrop-drag-pure-text (event text)