diff options
| -rw-r--r-- | lisp/man.el | 18 |
1 files changed, 2 insertions, 16 deletions
diff --git a/lisp/man.el b/lisp/man.el index 4f9177de797..47475d28b2d 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -1067,26 +1067,12 @@ Specify which reference to use; default is based on word at point." | |||
| 1067 | (defun Man-kill () | 1067 | (defun Man-kill () |
| 1068 | "Kill the buffer containing the manpage." | 1068 | "Kill the buffer containing the manpage." |
| 1069 | (interactive) | 1069 | (interactive) |
| 1070 | (let ((buff (current-buffer))) | 1070 | (quit-window t)) |
| 1071 | (delete-windows-on buff) | ||
| 1072 | (kill-buffer buff)) | ||
| 1073 | (if (and window-system | ||
| 1074 | (or (eq Man-notify-method 'newframe) | ||
| 1075 | (and pop-up-frames | ||
| 1076 | (eq Man-notify-method 'bully)))) | ||
| 1077 | (delete-frame))) | ||
| 1078 | 1071 | ||
| 1079 | (defun Man-quit () | 1072 | (defun Man-quit () |
| 1080 | "Bury the buffer containing the manpage." | 1073 | "Bury the buffer containing the manpage." |
| 1081 | (interactive) | 1074 | (interactive) |
| 1082 | (let ((buff (current-buffer))) | 1075 | (quit-window)) |
| 1083 | (delete-windows-on buff) | ||
| 1084 | (bury-buffer buff)) | ||
| 1085 | (if (and window-system | ||
| 1086 | (or (eq Man-notify-method 'newframe) | ||
| 1087 | (and pop-up-frames | ||
| 1088 | (eq Man-notify-method 'bully)))) | ||
| 1089 | (delete-frame))) | ||
| 1090 | 1076 | ||
| 1091 | (defun Man-goto-page (page) | 1077 | (defun Man-goto-page (page) |
| 1092 | "Go to the manual page on page PAGE." | 1078 | "Go to the manual page on page PAGE." |