diff options
| author | Kaushal <kaushal.modi@gmail.com> | 2015-08-21 14:14:20 +0200 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2015-08-21 14:14:20 +0200 |
| commit | 244a00860b6fe1d6acf92948c5c0d1ef0f8426fa (patch) | |
| tree | 7243c69fa71f42c64c04a7b41a155b4d6e609802 | |
| parent | 8c01e88921f00e5b5807541c8d3a8872912e79c5 (diff) | |
| download | emacs-244a00860b6fe1d6acf92948c5c0d1ef0f8426fa.tar.gz emacs-244a00860b6fe1d6acf92948c5c0d1ef0f8426fa.tar.bz2 emacs-244a00860b6fe1d6acf92948c5c0d1ef0f8426fa.zip | |
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
| -rw-r--r-- | lisp/woman.el | 6 |
1 files changed, 3 insertions, 3 deletions
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)) |