[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 244a008: In woman.el use `display-buffer' instead o
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] master 244a008: In woman.el use `display-buffer' instead of `switch-to-buffer' |
Date: |
Fri, 21 Aug 2015 12:16:03 +0000 |
branch: master
commit 244a00860b6fe1d6acf92948c5c0d1ef0f8426fa
Author: Kaushal <address@hidden>
Commit: Martin Rudalics <address@hidden>
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
---
lisp/woman.el | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/woman.el b/lisp/woman.el
index 75c3d2e..e903caa 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 244a008: In woman.el use `display-buffer' instead of `switch-to-buffer',
Martin Rudalics <=