diff options
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/man.el b/lisp/man.el index abb9bbad8fd..9b941a2b3d2 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -1503,7 +1503,9 @@ manpage command." | |||
| 1503 | (quit-restore-window | 1503 | (quit-restore-window |
| 1504 | (get-buffer-window Man-buffer t) 'kill) | 1504 | (get-buffer-window Man-buffer t) 'kill) |
| 1505 | ;; Ensure that we end up in the correct window. | 1505 | ;; Ensure that we end up in the correct window. |
| 1506 | (select-window (old-selected-window))) | 1506 | (let ((old-window (old-selected-window))) |
| 1507 | (when (window-live-p old-window) | ||
| 1508 | (select-window old-window)))) | ||
| 1507 | (kill-buffer Man-buffer))) | 1509 | (kill-buffer Man-buffer))) |
| 1508 | 1510 | ||
| 1509 | (when message | 1511 | (when message |