emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-25 6191003: Use pop-to-buffer-same-window in eww


From: Lars Ingebrigtsen
Subject: [Emacs-diffs] emacs-25 6191003: Use pop-to-buffer-same-window in eww
Date: Wed, 03 Feb 2016 02:35:38 +0000

branch: emacs-25
commit 6191003fcd2bc65f2b18d5337f6f390d43f07173
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Use pop-to-buffer-same-window in eww
    
    * lisp/net/eww.el: pop-to-buffer-same-window throughout instead of
    switch-to-buffer (bug#22244).
---
 lisp/net/eww.el |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 7f98b5b..af6e0af 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -551,7 +551,7 @@ Currently this means either text/html or 
application/xhtml+xml."
 (declare-function mailcap-view-mime "mailcap" (type))
 (defun eww-display-pdf ()
   (let ((data (buffer-substring (point) (point-max))))
-    (switch-to-buffer (get-buffer-create "*eww pdf*"))
+    (pop-to-buffer-same-window (get-buffer-create "*eww pdf*"))
     (let ((coding-system-for-write 'raw-text)
          (inhibit-read-only t))
       (erase-buffer)
@@ -748,7 +748,7 @@ the like."
 ;;;###autoload
 (defun eww-browse-url (url &optional new-window)
   (when new-window
-    (switch-to-buffer (generate-new-buffer "*eww*"))
+    (pop-to-buffer-same-window (generate-new-buffer "*eww*"))
     (eww-mode))
   (eww url))
 
@@ -1728,7 +1728,7 @@ If CHARSET is nil then use UTF-8."
     (let ((buffer eww-current-buffer))
       (quit-window)
       (when buffer
-       (switch-to-buffer buffer)))
+       (pop-to-buffer-same-window buffer)))
     (eww-restore-history history)))
 
 (defvar eww-history-mode-map
@@ -1809,7 +1809,7 @@ If CHARSET is nil then use UTF-8."
     (unless buffer
       (error "No buffer on current line"))
     (quit-window)
-    (switch-to-buffer buffer)))
+    (pop-to-buffer-same-window buffer)))
 
 (defun eww-buffer-show ()
   "Display buffer under point in eww buffer list."
@@ -1818,7 +1818,7 @@ If CHARSET is nil then use UTF-8."
     (unless buffer
       (error "No buffer on current line"))
     (other-window -1)
-    (switch-to-buffer buffer)
+    (pop-to-buffer-same-window buffer)
     (other-window 1)))
 
 (defun eww-buffer-show-next ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]