mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases 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
Show Stats 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>
* 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.
Non-interactively, this uses the optional second argument NEW-WINDOW
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."
instead of `browse-url-new-window-flag'."
(interactive (browse-url-interactive-arg "URL: "))
(setq url (browse-url-encode-url url))
(let* ((process-environment (browse-url-process-environment)))
@ -1130,13 +1126,10 @@ It always uses a new window."
browse-url-firefox-program
(append
browse-url-firefox-arguments
;; FIXME someone should check if this limitation
;; still applies.
(unless (memq system-type '(windows-nt ms-dos))
(if (browse-url-maybe-new-window new-window)
(if browse-url-firefox-new-window-is-tab
'("-new-tab")
'("-new-window"))))
(if (browse-url-maybe-new-window new-window)
(if browse-url-firefox-new-window-is-tab
'("-new-tab")
'("-new-window")))
(list url)))))
;;;###autoload