X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/cd3b7f95a1af31964d353fcc0299dc7c719ad750..cd30a521aa838f6bcf08ee6ffb62986cd2bf8daa:/lisp/man.el

diff --git a/lisp/man.el b/lisp/man.el
index 4f9177de79..47475d28b2 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."