mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 00:00:39 -08:00
Code Issues Projects Releases Wiki Activity

browse-url-firefox: removed MS-Windows limitations

Browse source 
net/browse-url.el (browse-url-firefox): Removed outdated
MS-Windows limitations.
This commit is contained in:
Oscar Fuentes 2015-03-06 17:18:45 +01:00
parent bfebebbc72
commit 20c6b227ea
2 changed files with 10 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2015-03-06 Oscar Fuentes <ofv@wanadoo.es>
* net/browse-url.el (browse-url-firefox): Removed outdated
MS-Windows limitations.
2015-03-06 Thomas Fitzsimmons <fitzsim@fitzsim.org> 2015-03-06 Thomas Fitzsimmons <fitzsim@fitzsim.org>
* net/eudcb-ldap.el (eudc-ldap-cleanup-record-simple): Mark as * net/eudcb-ldap.el (eudc-ldap-cleanup-record-simple): Mark as

17
lisp/net/browse-url.el
View file

@ -1117,11 +1117,7 @@ whenever a document would otherwise be loaded in a new window, it
is loaded in a new tab in an existing window instead. is loaded in a new tab in an existing window instead.
Non-interactively, this uses the optional second argument NEW-WINDOW Non-interactively, this uses the optional second argument NEW-WINDOW
instead of `browse-url-new-window-flag'. instead of `browse-url-new-window-flag'."
On MS Windows, this ignores `browse-url-new-window-flag' and
`browse-url-firefox-new-window-is-tab', as well as the NEW-WINDOW argument.
It always uses a new window."
(interactive (browse-url-interactive-arg "URL: ")) (interactive (browse-url-interactive-arg "URL: "))
(setq url (browse-url-encode-url url)) (setq url (browse-url-encode-url url))
(let* ((process-environment (browse-url-process-environment))) (let* ((process-environment (browse-url-process-environment)))
@ -1130,13 +1126,10 @@ It always uses a new window."
browse-url-firefox-program browse-url-firefox-program
(append (append
browse-url-firefox-arguments browse-url-firefox-arguments
;; FIXME someone should check if this limitation (if (browse-url-maybe-new-window new-window)
;; still applies. (if browse-url-firefox-new-window-is-tab
(unless (memq system-type '(windows-nt ms-dos)) '("-new-tab")
(if (browse-url-maybe-new-window new-window) '("-new-window")))
(if browse-url-firefox-new-window-is-tab
'("-new-tab")
'("-new-window"))))
(list url))))) (list url)))))
;;;###autoload ;;;###autoload