From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Mar 2002 09:56:30 +0000 (+0000)
Subject: (browse-url-galeon): Specify --existing for an existing window.
X-Git-Tag: ttn-vms-21-2-B4~16279
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b77784f7d95ae2befb5f6c03952172a4056ff3b8;p=emacs.git

(browse-url-galeon): Specify --existing for an existing window.
Use --noraise rather than --no-raise.  Don't use -x.
---

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 800cb22cf5d..1cdf9c631fd 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -886,6 +886,10 @@ non-nil, load the document in a new Galeon window, otherwise use a
 random existing one.  A non-nil interactive prefix argument reverses
 the effect of `browse-url-new-window-flag'.
 
+If `browse-url-galeon-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
 used instead of `browse-url-new-window-flag'."
   (interactive (browse-url-interactive-arg "URL: "))
@@ -903,8 +907,9 @@ used instead of `browse-url-new-window-flag'."
                           (if (browse-url-maybe-new-window new-window)
 			      (if browse-url-galeon-new-window-is-tab
 				  '("--new-tab")
-				'("--new-window" "--no-raise")))
-                          (list "-x" url)))))
+				'("--new-window" "--noraise"))
+                            '("--existing"))
+                          (list url)))))
     (set-process-sentinel process
 			  `(lambda (process change)
 			     (browse-url-galeon-sentinel process ,url)))))