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)))
    (if webjump-use-internal-browser
        (browse-url-with-browser-kind
         'internal (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)))))
      (browse-url (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))))))))