mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

improvement to 'g'

Browse source
This commit is contained in:
Joakim Verona 2011-11-03 22:25:57 +01:00
parent 85a3fca520
commit e40ee7bd1e
3 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/net/browse-url.el
View file

@ -669,7 +669,7 @@ regarding its parameter treatment."
;; functions allows them to be stand-alone commands, making it easier
;; to switch between browsers.
(defun browse-url-interactive-arg (prompt)
(defun browse-url-interactive-arg (prompt &optional default-url)
"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
@ -686,7 +686,8 @@ for use in `interactive'."
"[\t\r\f\n ]+" ""
(buffer-substring-no-properties
(region-beginning) (region-end))))
(browse-url-url-at-point)))
(browse-url-url-at-point)
default-url))
(not (eq (null browse-url-new-window-flag)
(null current-prefix-arg)))))