1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00

(webjump-sample-sites): Fix Lisp archive site.

(webjump): Don't funcall browse-url-browser-function.
This commit is contained in:
Dave Love 1998-10-31 22:55:26 +00:00
parent b80f1b20d3
commit 46a3b2b49b

View File

@ -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)