578 |
(defun browse-url-interactive-arg (prompt) |
(defun browse-url-interactive-arg (prompt) |
579 |
"Read a URL from the minibuffer, prompting with PROMPT. |
"Read a URL from the minibuffer, prompting with PROMPT. |
580 |
If `transient-mark-mode' is non-nil and the mark is active, |
If `transient-mark-mode' is non-nil and the mark is active, |
581 |
defaults to the current region, else to the URL at or before |
it defaults to the current region, else to the URL at or before |
582 |
point. If invoked with a mouse button, set point to the |
point. If invoked with a mouse button, it moves point to the |
583 |
position clicked first. Return a list for use in `interactive' |
position clicked before acting. |
584 |
containing the URL and `browse-url-new-window-flag' or its |
|
585 |
negation if a prefix argument was given." |
This function returns a list (URL NEW-WINDOW-FLAG) |
586 |
|
for use in `interactive'." |
587 |
(let ((event (elt (this-command-keys) 0))) |
(let ((event (elt (this-command-keys) 0))) |
588 |
(and (listp event) (mouse-set-point event))) |
(and (listp event) (mouse-set-point event))) |
589 |
(list (read-string prompt (or (and transient-mark-mode mark-active |
(list (read-string prompt (or (and transient-mark-mode mark-active |