User: simon
Date: 05/02/22 15:01:29
Modified: packages/xemacs-packages/mail-lib browse-url.el ChangeLog
Log:
* browse-url.el (browse-url-netscape-new-window-is-tab): New
variable.
(browse-url-netscape): Use it. Doc fix. Reported by "Johann
'Myrkraverk' Oskarsson" <myrkraverk(a)users.sourceforget.net>.
Revision Changes Path
1.34 +30 -16 XEmacs/packages/xemacs-packages/mail-lib/browse-url.el
Index: browse-url.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mail-lib/browse-url.el,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -r1.33 -r1.34
--- browse-url.el 2003/12/07 05:18:47 1.33
+++ browse-url.el 2005/02/22 14:01:27 1.34
@@ -1,6 +1,6 @@
;;; browse-url.el --- pass a URL to a WWW browser
-;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001, 2002, 2003
+;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001, 2002, 2003, 2005
;; Free Software Foundation, Inc.
;; Author: Denis Howe <dbh(a)doc.ic.ac.uk>
@@ -403,6 +403,13 @@
:type 'boolean
:group 'browse-url)
+(defcustom browse-url-netscape-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-netscape' 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.
@@ -863,6 +870,10 @@
random existing one. A non-nil interactive prefix argument reverses
the effect of `browse-url-new-window-flag'.
+If `browse-url-netscape-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: "))
@@ -872,21 +883,24 @@
(setq url (replace-match
(format "%%%x" (string-to-char (match-string 0 url))) t t url)))
(let* ((process-environment (browse-url-process-environment))
- (process (apply 'start-process
- (concat "netscape " url) nil
- browse-url-netscape-program
- (append
- browse-url-netscape-arguments
- (if (eq (console-type) 'mswindows) ;; XEmacs change
- (list url)
- (append
- (if new-window '("-noraise"))
- (list "-remote"
- (concat "openURL(" url
- (if (browse-url-maybe-new-window
- new-window)
- ",new-window")
- ")"))))))))
+ (process
+ (apply 'start-process
+ (concat "netscape " url) nil
+ browse-url-netscape-program
+ (append
+ browse-url-netscape-arguments
+ (if (eq (console-type) 'mswindows) ;; XEmacs change
+ (list url)
+ (append
+ (if new-window '("-noraise"))
+ (list "-remote"
+ (concat "openURL(" 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
`(lambda (process change)
(browse-url-netscape-sentinel process ,url)))))
1.153 +7 -0 XEmacs/packages/xemacs-packages/mail-lib/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mail-lib/ChangeLog,v
retrieving revision 1.152
retrieving revision 1.153
diff -u -r1.152 -r1.153
--- ChangeLog 2004/11/30 05:55:51 1.152
+++ ChangeLog 2005/02/22 14:01:28 1.153
@@ -1,3 +1,10 @@
+2005-02-22 Simon Josefsson <jas(a)extundo.com>
+
+ * browse-url.el (browse-url-netscape-new-window-is-tab): New
+ variable.
+ (browse-url-netscape): Use it. Doc fix. Reported by "Johann
+ 'Myrkraverk' Oskarsson" <myrkraverk(a)users.sourceforget.net>.
+
2004-11-30 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.70 released.