Mercurial > emacs
changeset 23601:0049f95b12a7
(webjump-sample-sites): Fix Lisp archive site.
(webjump): Don't funcall browse-url-browser-function.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sat, 31 Oct 1998 22:55:26 +0000 |
| parents | db1ded871074 |
| children | 6c27d8ed0867 |
| files | lisp/webjump.el |
| diffstat | 1 files changed, 13 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- 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)