# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 894513928 0
# Node ID 3c8d5ab91f84604e408573f1d26226cb2e59a6f5
# Parent  96ae627335f51c8787f8cbb8276174b408779e1d
(quit-window): Fixed FRAME to be the frame and never window.

diff -r 96ae627335f5 -r 3c8d5ab91f84 lisp/window.el
--- a/lisp/window.el	Thu May 07 04:02:36 1998 +0000
+++ b/lisp/window.el	Thu May 07 04:05:28 1998 +0000
@@ -303,7 +303,7 @@
 and the buffer that is killed or buried is the one in that window."
   (interactive "P")
   (let ((buffer (window-buffer window))
-	(frame (if window (window-frame window) (selected-window)))
+	(frame (window-frame (or window (selected-window))))
 	(window-solitary
 	 (save-selected-window
 	   (if window