X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fdragdrop.el;h=12504825e528c9c70af40e4bc9a3598d7a935aab;hb=acb24fd9281356e95bea31f1661e34dceef1fc59;hp=9c46f55f8f7a79b0a3022abf3b6526c6fddf7818;hpb=a5f466de30a3e927ed1146b0c7e3870e71465c8f;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 <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.
 
@@ -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)