# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 769304275 0
# Node ID 0e1f3b9598bb71449e332e8be7a6ea485293b756
# Parent  1541c518f769fa229e090efe24f97cd9821a5d7a
(Fset_window_buffer): Fix dedicated window error call.
(window_loop, case UNSHOW_BUFFER): Clear dedicated flag.

diff -r 1541c518f769 -r 0e1f3b9598bb src/window.c
--- a/src/window.c	Wed May 18 22:42:41 1994 +0000
+++ b/src/window.c	Wed May 18 23:37:55 1994 +0000
@@ -1269,6 +1269,7 @@
 		if (NILP (another_buffer))
 		  another_buffer
 		    = Fget_buffer_create (build_string ("*scratch*"));
+		XWINDOW (w)->dedicated = Qnil;
 		Fset_window_buffer (w, another_buffer);
 		if (EQ (w, selected_window))
 		  Fset_buffer (XWINDOW (w)->buffer);
@@ -1626,7 +1627,8 @@
 				   is first being set up.  */
     {
       if (!NILP (w->dedicated) && !EQ (tem, buffer))
-	error ("Window is dedicated to %s\n", tem);
+	error ("Window is dedicated to `%s'",
+	       XSTRING (XBUFFER (tem)->name)->data);
 
       unshow_buffer (w);
     }