/[emacs]/emacs/lisp/net/browse-url.el
ViewVC logotype

Diff of /emacs/lisp/net/browse-url.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by lektu, Sun May 23 22:35:59 2004 UTC revision 1.38 by rms, Sat May 29 15:34:50 2004 UTC
# Line 578  down (this *won't* always work)." Line 578  down (this *won't* always work)."
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

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26