Commit 4c493999 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(browse-url-interactive-arg): Enable user to explicitly select the text to

be taken as URL.
parent 675254bc
2004-05-24 Yoichi NAKAYAMA <yoichi@geiin.org> (tiny change)
* net/browse-url.el (browse-url-interactive-arg): Enable user to
explicitly select the text to be taken as URL.
2004-05-23 Juri Linkov <juri@jurta.org>
* info.el (Info-index-nodes): New var and fun.
......@@ -69,7 +74,7 @@
* progmodes/gud.el (gud-menu-map, gud-speedbar-menu-items)
(gud-speedbar-buttons, gud-sentinel, gud-display-line)
(gud-basic-call): Handle new value for gud-minor-mode (gdbmi) for
a new mode. The file (gdb-mi.el) for this mode will be included
a new mode. The file (gdb-mi.el) for this mode will be included
with the GDB distribution (6.2 onwards) and will use GDB/MI as its
primary interface.
......
......@@ -577,13 +577,21 @@ down (this *won't* always work)."
(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
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 (browse-url-url-at-point))
(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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment