From: Dave Love <fx@gnu.org>
Date: Sat, 31 Oct 1998 22:55:26 +0000 (+0000)
Subject: (webjump-sample-sites): Fix Lisp archive site.
X-Git-Tag: emacs-20.4~1348
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=46a3b2b49b1b9c697fc80721f89cdc57779da812;p=emacs.git

(webjump-sample-sites): Fix Lisp archive site.
(webjump): Don't funcall browse-url-browser-function.
---

diff --git a/lisp/webjump.el b/lisp/webjump.el
index 42d0a4d4f2d..22a8c566371 100644
--- a/lisp/webjump.el
+++ b/lisp/webjump.el
@@ -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 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
 		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)