# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 897087268 0
# Node ID c3a15ab5924f86e7c3c8b561717997b37e9786bd
# Parent  5485d428a9c34152e0f95ca49feab8c7c3709c14
(Man-kill, Man-quit): Use quit-window.

diff -r 5485d428a9c3 -r c3a15ab5924f lisp/man.el
--- a/lisp/man.el	Fri Jun 05 22:27:42 1998 +0000
+++ b/lisp/man.el	Fri Jun 05 22:54:28 1998 +0000
@@ -1067,26 +1067,12 @@
 (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."