mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-09 09:10:16 +00:00
Code Issues Releases Activity

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

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

Copyright-paperwork-exempt: yes
This commit is contained in:
Kaushal 2015-08-21 14:14:20 +02:00 committed by Martin Rudalics
parent 8c01e88921
commit 244a00860b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/woman.el
View File

@ -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))