X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fdragdrop.el;h=12504825e528c9c70af40e4bc9a3598d7a935aab;hb=cb26bbee6a52b3db5a7e6c006e57b69c7562559d;hp=9c46f55f8f7a79b0a3022abf3b6526c6fddf7818;hpb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;p=chise%2Fxemacs-chise.git diff --git a/lisp/dragdrop.el b/lisp/dragdrop.el index 9c46f55..1250482 100644 --- a/lisp/dragdrop.el +++ b/lisp/dragdrop.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1998 Oliver Graf ;; Maintainer: XEmacs Development Team, Oliver Graf -;; Keywords: drag, drop, dumped +;; Keywords: mouse, gui, dumped ;; This file is part of XEmacs. @@ -244,8 +244,8 @@ Finds files and URLs. Returns nil if object does not contain URL data." ;; 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)