From: Pierre Téchoueyres <pierre.techoueyres@free.fr>
Date: Thu, 1 Mar 2018 21:22:05 +0000 (+0100)
Subject: Allow 'browse-url-emacs' to fetch URL in the selected window
X-Git-Tag: emacs-27.0.90~5463
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f022b1bdf885007363518ec1474ef5820ee6b6d6;p=emacs.git

Allow 'browse-url-emacs' to fetch URL in the selected window

* lisp/net/browse-url.el (browse-url-emacs): Use same-window argument.
(Bug#30673)
---

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 8086495aaaa..3b5169d4734 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -1242,18 +1242,14 @@ used instead of `browse-url-new-window-flag'."
 (defvar url-handler-regexp)
 
 ;;;###autoload
-(defun browse-url-emacs (url &optional _new-window)
+(defun browse-url-emacs (url &optional same-window)
   "Ask Emacs to load URL into a buffer and show it in another window."
   (interactive (browse-url-interactive-arg "URL: "))
   (require 'url-handlers)
   (let ((file-name-handler-alist
          (cons (cons url-handler-regexp 'url-file-handler)
                file-name-handler-alist)))
-    ;; Ignore `new-window': with all other browsers the URL is always shown
-    ;; in another window than the current Emacs one since it's shown in
-    ;; another application's window.
-    ;; (if new-window (find-file-other-window url) (find-file url))
-    (find-file-other-window url)))
+    (if same-window (find-file url) (find-file-other-window url))))
 
 ;;;###autoload
 (defun browse-url-gnome-moz (url &optional new-window)