From 06cab243ef0882adb4edb488a086d13277cd17be Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 5 Jun 1998 22:54:28 +0000 Subject: [PATCH] (Man-kill, Man-quit): Use quit-window. --- lisp/man.el | 18 ++---------------- 1 file 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." (defun Man-kill () "Kill the buffer containing the manpage." (interactive) - (let ((buff (current-buffer))) - (delete-windows-on buff) - (kill-buffer buff)) - (if (and window-system - (or (eq Man-notify-method 'newframe) - (and pop-up-frames - (eq Man-notify-method 'bully)))) - (delete-frame))) + (quit-window t)) (defun Man-quit () "Bury the buffer containing the manpage." (interactive) - (let ((buff (current-buffer))) - (delete-windows-on buff) - (bury-buffer buff)) - (if (and window-system - (or (eq Man-notify-method 'newframe) - (and pop-up-frames - (eq Man-notify-method 'bully)))) - (delete-frame))) + (quit-window)) (defun Man-goto-page (page) "Go to the manual page on page PAGE." -- 2.39.5