From: Kaushal <kaushal.modi@gmail.com>
Date: Fri, 21 Aug 2015 12:14:20 +0000 (+0200)
Subject: In woman.el use `display-buffer' instead of `switch-to-buffer'
X-Git-Tag: emacs-25.0.90~1325
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=244a00860b6fe1d6acf92948c5c0d1ef0f8426fa;p=emacs.git

In woman.el use `display-buffer' instead of `switch-to-buffer'

* lisp/woman.el (woman-really-find-file, WoMan-find-buffer): Use
`display-buffer' instead of `switch-to-buffer'.

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/woman.el b/lisp/woman.el
index 75c3d2e3822..e903caaea30 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1651,7 +1651,7 @@ Do not call directly!"
 	     (setq woman-frame (make-frame)))))
     (set-buffer (get-buffer-create bufname))
     (condition-case nil
-        (switch-to-buffer (current-buffer))
+        (display-buffer (current-buffer))
       (error (pop-to-buffer (current-buffer))))
     (buffer-disable-undo)
     (setq buffer-read-only nil)
@@ -2061,14 +2061,14 @@ alist in `woman-buffer-alist' and return nil."
   (if (zerop woman-buffer-number)
       (let ((buffer (get-buffer (cdr (car woman-buffer-alist)))))
 	(if buffer
-	    (switch-to-buffer buffer)
+	    (display-buffer buffer)
 	  ;; Delete alist element:
 	  (setq woman-buffer-alist (cdr woman-buffer-alist))
 	  nil))
     (let* ((prev-ptr (nthcdr (1- woman-buffer-number) woman-buffer-alist))
 	   (buffer (get-buffer (cdr (car (cdr prev-ptr))))))
       (if buffer
-	  (switch-to-buffer buffer)
+	  (display-buffer buffer)
 	;; Delete alist element:
 	(setcdr prev-ptr (cdr (cdr prev-ptr)))
 	(if (>= woman-buffer-number (length woman-buffer-alist))