# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 909874526 0
# Node ID 0049f95b12a705d812d3dc2ea843ee193ce8be0e
# Parent  db1ded871074ec26acb45a551d957afa9a69f4c3
(webjump-sample-sites): Fix Lisp archive site.
(webjump): Don't funcall browse-url-browser-function.

diff -r db1ded871074 -r 0049f95b12a7 lisp/webjump.el
--- a/lisp/webjump.el	Sat Oct 31 05:24:11 1998 +0000
+++ b/lisp/webjump.el	Sat Oct 31 22:55:26 1998 +0000
@@ -130,7 +130,7 @@
 
     ;; Emacs.
     ("Emacs Lisp Archive" .
-     "ftp://archive.cis.ohio-state.edu/pub/gnu/emacs/elisp-archive/")
+     "ftp://ftp.cis.ohio-state.edu/pub/gnu/emacs/elisp-archive/")
 
     ;; Internet search engines.
     ("AltaVista" . 
@@ -279,18 +279,18 @@
 		webjump-sites))
 	 (name (car item))
 	 (expr (cdr item)))
-    (funcall browse-url-browser-function
-	     (webjump-url-fix
-	      (cond ((not expr) "")
-		    ((stringp expr) expr)
-		    ((vectorp expr) (webjump-builtin expr name))
-		    ((listp expr) (eval expr))
-		    ((symbolp expr)
-		     (if (fboundp expr)
-			 (funcall expr name)
-		       (error "WebJump URL function \"%s\" undefined." expr)))
-		    (t (error "WebJump URL expression for \"%s\" invalid."
-			      name)))))))
+    (browse-url (webjump-url-fix
+		 (cond ((not expr) "")
+		       ((stringp expr) expr)
+		       ((vectorp expr) (webjump-builtin expr name))
+		       ((listp expr) (eval expr))
+		       ((symbolp expr)
+			(if (fboundp expr)
+			    (funcall expr name)
+			  (error "WebJump URL function \"%s\" undefined." 
+				 expr)))
+		       (t (error "WebJump URL expression for \"%s\" invalid."
+				 name)))))))
 
 (defun webjump-builtin (expr name)
   (if (< (length expr) 1)