[Emacs-diffs] Changes to emacs/lisp/net/browse-url.el [lexbind]

[Miles Bader]

Index: emacs/lisp/net/browse-url.el
diff -c emacs/lisp/net/browse-url.el:1.21.2.6 
emacs/lisp/net/browse-url.el:1.21.2.7
*** emacs/lisp/net/browse-url.el:1.21.2.6       Thu Apr 29 10:59:10 2004
--- emacs/lisp/net/browse-url.el        Tue Jul  6 09:31:52 2004
***************
*** 577,589 ****
  
  (defun browse-url-interactive-arg (prompt)
    "Read a URL from the minibuffer, prompting with PROMPT.
! Default 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 (browse-url-url-at-point))
        (not (eq (null browse-url-new-window-flag)
                 (null current-prefix-arg)))))
  
--- 577,598 ----
  
  (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
!                                    ;; rfc2396 Appendix E.
!                                    (replace-regexp-in-string
!                                     "[\t\r\f\n ]+" ""
!                                     (buffer-substring-no-properties
!                                      (region-beginning) (region-end))))
!                               (browse-url-url-at-point)))
        (not (eq (null browse-url-new-window-flag)
                 (null current-prefix-arg)))))