diff options
| author | Dave Love <fx@gnu.org> | 1998-10-31 22:55:26 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1998-10-31 22:55:26 +0000 |
| commit | 46a3b2b49b1b9c697fc80721f89cdc57779da812 (patch) | |
| tree | db44517644acc17a0aa715aa4514eec3fdc1bf0b /lisp/webjump.el | |
| parent | b80f1b20d3c66f2858c183047a972cd42fe8055b (diff) | |
| download | emacs-46a3b2b49b1b9c697fc80721f89cdc57779da812.tar.gz | |
(webjump-sample-sites): Fix Lisp archive site.
(webjump): Don't funcall browse-url-browser-function.
Diffstat (limited to 'lisp/webjump.el')
| -rw-r--r-- | lisp/webjump.el | 26 |
1 files changed, 13 insertions, 13 deletions
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) |