mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(browse-url-interactive-arg): Doc fix.

Browse Source
This commit is contained in:
Richard M. Stallman 2004-05-29 15:34:50 +00:00
parent 152472ba19
commit 657962fc48
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/net/browse-url.el
View File

@ -578,11 +578,12 @@ down (this *won't* always work)."
(defun browse-url-interactive-arg (prompt)
"Read a URL from the minibuffer, prompting with PROMPT.
If `transient-mark-mode' is non-nil and the mark is active,
defaults to the current region, else to the URL at or before
point. If invoked with a mouse button, set point to the
position clicked first. Return a list for use in `interactive'
containing the URL and `browse-url-new-window-flag' or its
negation if a prefix argument was given."
it defaults to the current region, else to the URL at or before
point. If invoked with a mouse button, it moves point to the
position clicked before acting.
This function returns a list (URL NEW-WINDOW-FLAG)
for use in `interactive'."
(let ((event (elt (this-command-keys) 0)))
(and (listp event) (mouse-set-point event)))
(list (read-string prompt (or (and transient-mark-mode mark-active