From: Richard M. Stallman Date: Sat, 29 May 2004 15:34:50 +0000 (+0000) Subject: (browse-url-interactive-arg): Doc fix. X-Git-Tag: ttn-vms-21-2-B4~6011 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=657962fc48b822102fa587d9d9b8db4ca701b876;p=emacs.git (browse-url-interactive-arg): Doc fix. --- diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index e98b3d815ab..1dbd97f0073 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -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