Function: webjump

webjump is an autoloaded, interactive and byte-compiled function defined in webjump.el.gz.

Signature

(webjump)

Documentation

Jumps to a Web site from a programmable hotlist.

See the documentation for the webjump-sites variable for how to customize the hotlist.

Please submit bug reports and other feedback to the author, Neil W. Van Dyke
<nwv@acm.org>.

Probably introduced at or before Emacs version 20.1.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/net/webjump.el.gz
;;-------------------------------------------------------------- Core Functions

;;;###autoload
(defun webjump ()
  "Jumps to a Web site from a programmable hotlist.

See the documentation for the `webjump-sites' variable for how to customize the
hotlist.

Please submit bug reports and other feedback to the author, Neil W. Van Dyke
<nwv@acm.org>."
  (interactive)
  (let* ((completion-ignore-case t)
	 (item (assoc-string
		(completing-read "WebJump to site: " webjump-sites nil t)
		webjump-sites t))
	 (name (car item))
         (expr (cdr item))
         (fun (if webjump-use-internal-browser
                  (apply-partially #'browse-url-with-browser-kind 'internal)
                #'browse-url)))
    (funcall fun (webjump-url-fix
                  (cond ((not expr) "")
                        ((stringp expr) expr)
                        ((vectorp expr) (webjump-builtin expr name))
                        ((listp expr) (eval expr t))
                        ((symbolp expr)
                         (if (fboundp expr)
                             (funcall expr name)
                           (error "WebJump URL function \"%s\" undefined"
                                  expr)))
                        (t (error "WebJump URL expression for \"%s\" invalid"
                                  name)))))))