From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 25 Nov 2001 00:04:41 +0000 (+0000)
Subject: (browse-url-galeon-new-window-is-tab): New var.
X-Git-Tag: ttn-vms-21-2-B4~18219
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d5d41231fd7b22cb2d6b48f209a16ba8a515cd4;p=emacs.git

(browse-url-galeon-new-window-is-tab): New var.
(browse-url-galeon): Use that variable.
---

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 0fea3811ab6..2f9026aee8e 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -335,6 +335,13 @@ Defaults to the value of `browse-url-galeon-arguments' at the time
   :type '(repeat (string :tag "Argument"))
   :group 'browse-url)
 
+(defcustom browse-url-galeon-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-galeon' is asked to open it in a new window."
+  :type 'boolean
+  :group 'browse-url)
+
 ;;;###autoload
 (defcustom browse-url-new-window-flag nil
   "*If non-nil, always open a new browser window with appropriate browsers.
@@ -893,7 +900,10 @@ used instead of `browse-url-new-window-flag'."
 			 browse-url-galeon-program
 			 (append
 			  browse-url-galeon-arguments
-                          (if new-window '("-w" "--noraise"))
+                          (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)))))
     (set-process-sentinel process
 			  `(lambda (process change)