* window.c (Fwindow_live_p): Use WINDOW_LIVE_P.

2001-01-18 14:09:17 +00:00
parent b0b7ed0e41
commit 9e571f494c
1 changed files with 1 additions and 1 deletions
--- a/src/window.c
+++ b/src/window.c
@@ -226,7 +226,7 @@ DEFUN ("window-live-p", Fwindow_live_p, Swindow_live_p, 1, 1, 0,
     (object)
     Lisp_Object object;
 {
-  return (WINDOWP (object) && ! NILP (XWINDOW (object)->buffer) ? Qt : Qnil);
+  return WINDOW_LIVE_P (object) ? Qt : Qnil;
 }

 Lisp_Object