[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/browse-url.el
From: |
Simon Josefsson |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/browse-url.el |
Date: |
Tue, 22 Feb 2005 09:11:26 -0500 |
Index: emacs/lisp/net/browse-url.el
diff -c emacs/lisp/net/browse-url.el:1.41 emacs/lisp/net/browse-url.el:1.42
*** emacs/lisp/net/browse-url.el:1.41 Mon Dec 13 19:33:51 2004
--- emacs/lisp/net/browse-url.el Tue Feb 22 14:11:25 2005
***************
*** 1,6 ****
;;; browse-url.el --- pass a URL to a WWW browser
! ;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001, 2004
;; Free Software Foundation, Inc.
;; Author: Denis Howe <address@hidden>
--- 1,6 ----
;;; browse-url.el --- pass a URL to a WWW browser
! ;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001, 2004, 2005
;; Free Software Foundation, Inc.
;; Author: Denis Howe <address@hidden>
***************
*** 387,392 ****
--- 387,400 ----
: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)
+
(defcustom browse-url-new-window-flag nil
"*If non-nil, always open a new browser window with appropriate browsers.
Passing an interactive argument to \\[browse-url], or specific browser
***************
*** 834,839 ****
--- 842,851 ----
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: "))
***************
*** 843,863 ****
(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 window-system 'w32)
! (list url)
! (append
! (if new-window '("-noraise"))
! (list "-remote"
! (concat "openURL(" url
! (if (browse-url-maybe-new-window
! new-window)
! ",new-window")
! ")"))))))))
(set-process-sentinel process
`(lambda (process change)
(browse-url-netscape-sentinel process ,url)))))
--- 855,878 ----
(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 window-system 'w32)
! (list url)
! (append
! (if new-window '("-noraise"))
! (list "-remote"
! (concat "openURL(" url
! (if (browse-url-maybe-new-window
! new-window)
! (if browse-url-netscape-new-window-is-tab
! ",new-tab"
! ",new-window"))
! ")"))))))))
(set-process-sentinel process
`(lambda (process change)
(browse-url-netscape-sentinel process ,url)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/net/browse-url.el,
Simon Josefsson <=