[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/browse-url.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/browse-url.el |
Date: |
Sat, 29 May 2004 11:38:45 -0400 |
Index: emacs/lisp/net/browse-url.el
diff -c emacs/lisp/net/browse-url.el:1.37 emacs/lisp/net/browse-url.el:1.38
*** emacs/lisp/net/browse-url.el:1.37 Sun May 23 22:35:59 2004
--- emacs/lisp/net/browse-url.el Sat May 29 15:34:50 2004
***************
*** 578,588 ****
(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."
(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
--- 578,589 ----
(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,
! 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/net/browse-url.el,
Richard M . Stallman <=