diff lisp/dragdrop.el @ 442:abe6d1db359e r21-2-36

Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 0784d089fdc9
line wrap: on
line diff
--- a/lisp/dragdrop.el	Mon Aug 13 11:33:40 2007 +0200
+++ b/lisp/dragdrop.el	Mon Aug 13 11:35:02 2007 +0200
@@ -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 @@
 		   ;; 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)