diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-11-25 00:04:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-11-25 00:04:41 +0000 |
| commit | 1d5d41231fd7b22cb2d6b48f209a16ba8a515cd4 (patch) | |
| tree | ffa56b8a14895681754da98617561bb548c44374 /lisp/net/browse-url.el | |
| parent | eab26a2fe54db9849b4950db4ee8d86dcf6aac7a (diff) | |
| download | emacs-1d5d41231fd7b22cb2d6b48f209a16ba8a515cd4.tar.gz | |
(browse-url-galeon-new-window-is-tab): New var.
(browse-url-galeon): Use that variable.
Diffstat (limited to 'lisp/net/browse-url.el')
| -rw-r--r-- | lisp/net/browse-url.el | 12 |
1 files changed, 11 insertions, 1 deletions
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) |