Function: webjump-read-url-choice

webjump-read-url-choice is a byte-compiled function defined in webjump.el.gz.

Signature

(webjump-read-url-choice WHAT URLS &optional DEFAULT)

Source Code

;; Defined in /usr/src/emacs/lisp/net/webjump.el.gz
(defun webjump-read-url-choice (what urls &optional default)
  ;; Note: Convert this to use `webjump-read-choice' someday.
  (let* ((completions (mapcar (lambda (n) (cons n n)) urls))
	 (input (completing-read (concat what
                                         ;;(if default " (RET for default)" "")
                                         ": ")
                                 completions
                                 nil
                                 t)))
    (if (webjump-null-or-blank-string-p input)
        default
      (car (assoc input completions)))))