mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

* browse-url.el (browse-url-mozilla): Doc fix.

Browse Source 
* browse-url.el (browse-url-mozilla-new-window-is-tab): New.
(browse-url-mozilla): Use it.
This commit is contained in:
Simon Josefsson 2002-10-11 17:17:10 +00:00
parent 46b1995db5
commit d6da15ec7b
2 changed files with 35 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -1,3 +1,12 @@
2002-10-10 Simon Josefsson <jas@extundo.com>
* browse-url.el (browse-url-mozilla): Doc fix.
2002-10-10 Steve Youngs <youngs@xemacs.org>
* browse-url.el (browse-url-mozilla-new-window-is-tab): New.
(browse-url-mozilla): Use it.
2002-10-11 Miles Bader <miles@gnu.org> 2002-10-11 Miles Bader <miles@gnu.org>
* vc-cvs.el (vc-cvs-parse-entry): Don't barf when an `Entries' * vc-cvs.el (vc-cvs-parse-entry): Don't barf when an `Entries'

36
lisp/net/browse-url.el
View File

@ -335,6 +335,13 @@ Defaults to the value of `browse-url-galeon-arguments' at the time
:type '(repeat (string :tag "Argument")) :type '(repeat (string :tag "Argument"))
:group 'browse-url) :group 'browse-url)
(defcustom browse-url-mozilla-new-window-is-tab nil
"*Whether to open up new windows in a tab or a new window.
If non-nil, then open the URL in a new tab rather than a new window if
`browse-url-mozilla' is asked to open it in a new window."
:type 'boolean
:group 'browse-url)
(defcustom browse-url-galeon-new-window-is-tab nil (defcustom browse-url-galeon-new-window-is-tab nil
"*Whether to open up new windows in a tab or a new window. "*Whether to open up new windows in a tab or a new window.
If non-nil, then open the URL in a new tab rather than a new window if If non-nil, then open the URL in a new tab rather than a new window if
@ -853,6 +860,10 @@ non-nil, load the document in a new Mozilla window, otherwise use a
random existing one. A non-nil interactive prefix argument reverses random existing one. A non-nil interactive prefix argument reverses
the effect of `browse-url-new-window-flag'. the effect of `browse-url-new-window-flag'.
If `browse-url-mozilla-new-window-is-tab' is non-nil, then whenever a
document would otherwise be loaded in a new window, it is loaded in a
new tab in an existing window instead.
When called non-interactively, optional second argument NEW-WINDOW is When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'." used instead of `browse-url-new-window-flag'."
(interactive (browse-url-interactive-arg "URL: ")) (interactive (browse-url-interactive-arg "URL: "))
@ -862,16 +873,21 @@ used instead of `browse-url-new-window-flag'."
(setq url (replace-match (setq url (replace-match
(format "%%%x" (string-to-char (match-string 0 url))) t t url))) (format "%%%x" (string-to-char (match-string 0 url))) t t url)))
(let* ((process-environment (browse-url-process-environment)) (let* ((process-environment (browse-url-process-environment))
(process (apply 'start-process (process
(concat "mozilla " url) nil (apply 'start-process
browse-url-mozilla-program (concat "mozilla " url) nil
(append browse-url-mozilla-program
browse-url-mozilla-arguments (append
(list "-remote" browse-url-mozilla-arguments
(concat "openURL(" (list "-remote"
url (concat "openURL("
(if new-window ",new-window") url
")")))))) (if (browse-url-maybe-new-window
new-window)
(if browse-url-mozilla-new-window-is-tab
",new-tab")
",new-window")
")"))))))
(set-process-sentinel process (set-process-sentinel process
`(lambda (process change) `(lambda (process change)
(browse-url-mozilla-sentinel process ,url))))) (browse-url-mozilla-sentinel process ,url)))))