;; Copyright (C) 1998 Oliver Graf <ograf@fga.de>
;; Maintainer: XEmacs Development Team, Oliver Graf <ograf@fga.de>
-;; Keywords: drag, drop, dumped
+;; Keywords: mouse, gui, dumped
;; This file is part of XEmacs.
(defcustom dragdrop-autoload-tm-view nil
"*{EXPERIMENTAL} If non-nil, autoload tm-view to decode MIME data.
-Otherwise, the buffer is only decoded if tm-view is already avaiable."
+Otherwise, the buffer is only decoded if tm-view is already available."
:type 'boolean
:group 'drag-n-drop)
(and (or (eq (cadr flist) t)
(= (cadr flist) button))
(or (eq (caddr flist) t)
- (dragdrop-compare-mods (caddr flist) modifiers))
+ (dragdrop-compare-mods (caddr flist) mods))
(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
- (if (boundp 'browse-url-browser-function)
- (funcall browse-url-browser-function (car data))
+ (if (fboundp 'browse-url)
+ (browse-url (car data))
(display-message 'error
"Can't show URL, no browser selected"))))
(undo-boundary)
This function uses special data types if the low-level
protocol requires it. It does so by calling
dragdrop-drag-pure-text."
- (dragdrop-drag-pure-text event
+ (experimental-dragdrop-drag-pure-text event
(buffer-substring-no-properties begin end)))
(defun experimental-dragdrop-drag-pure-text (event text)