* window.c (Fdelete_window): Check WINDOW argument. (Bug#4618)

dbf64827 · Juanma Barranquero · 1b8d1cc7 · dbf64827 · dbf64827
Commit dbf64827 authored Oct 03, 2009 by Juanma Barranquero
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

src/ChangeLog src/ChangeLog +4 -0

src/window.c src/window.c +3 -0

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+2009-10-03  Martin Rudalics  <rudalics@gmx.at>
+
+	* window.c (Fdelete_window): Check WINDOW argument.  (Bug#4618)
+
 2009-10-02  Michael Albinus  <michael.albinus@gmx.de>
  
 	* lisp.h (Qdelete_directory_internal): Removed, because it is not

--- a/src/window.c
+++ b/src/window.c
@@ -1533,6 +1533,9 @@ Signal an error when WINDOW is the only window on its frame.  */)
  struct frame *f;
  if (NILP (window))
    window = selected_window;
+  else
+    CHECK_LIVE_WINDOW (window);
+
  f = XFRAME (WINDOW_FRAME (XWINDOW (window)));
  delete_window (window);