# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1270567962 -3600
# Node ID 94982b8f9485370bdba468f085768444d6b52f36
# Parent  71ee43b8a74d9cf0faedc5af6aedf865ed6e7f42
When printing a frame, print its device, making things clearer with gnuserv

2010-04-06  Aidan Kehoe  <kehoea@parhasard.net>

	* frame.c (print_frame):
	When printing a frame, print its device, making the output of
	#'frame-list a lot more helpful if using gnuclient.

diff -r 71ee43b8a74d -r 94982b8f9485 src/ChangeLog
--- a/src/ChangeLog	Mon Apr 05 13:03:35 2010 +0100
+++ b/src/ChangeLog	Tue Apr 06 16:32:42 2010 +0100
@@ -1,3 +1,9 @@
+2010-04-06  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* frame.c (print_frame):
+	When printing a frame, print its device, making the output of
+	#'frame-list a lot more helpful if using gnuclient.
+
 2010-04-04  Ben Wing  <ben@xemacs.org>
 
 	* font-mgr.c:
diff -r 71ee43b8a74d -r 94982b8f9485 src/frame.c
--- a/src/frame.c	Mon Apr 05 13:03:35 2010 +0100
+++ b/src/frame.c	Tue Apr 06 16:32:42 2010 +0100
@@ -642,6 +642,8 @@
   write_fmt_string (printcharfun, "#<%s-frame ", !FRAME_LIVE_P (frm) ? "dead" :
 		    FRAME_TYPE_NAME (frm));
   print_internal (frm->name, printcharfun, 1);
+  write_ascstring (printcharfun, " on ");
+  print_internal (frm->device, printcharfun, 0);
   write_fmt_string (printcharfun, " 0x%x>", LISP_OBJECT_UID (obj));
 }