Mercurial > hg > xemacs-beta

comparison src/frame.c @ 5209:94982b8f9485

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 06 Apr 2010 16:32:42 +0100
parents 9e0b43d3095c
children 3889ef128488 308d34e9f07d
comparison
equal deleted inserted replaced
5191:71ee43b8a74d 5209:94982b8f9485
640 printing_unreadable_lisp_object (obj, XSTRING_DATA (frm->name)); 640 printing_unreadable_lisp_object (obj, XSTRING_DATA (frm->name));
641 641
642 write_fmt_string (printcharfun, "#<%s-frame ", !FRAME_LIVE_P (frm) ? "dead" : 642 write_fmt_string (printcharfun, "#<%s-frame ", !FRAME_LIVE_P (frm) ? "dead" :
643 FRAME_TYPE_NAME (frm)); 643 FRAME_TYPE_NAME (frm));
644 print_internal (frm->name, printcharfun, 1); 644 print_internal (frm->name, printcharfun, 1);
645 write_ascstring (printcharfun, " on ");
646 print_internal (frm->device, printcharfun, 0);
645 write_fmt_string (printcharfun, " 0x%x>", LISP_OBJECT_UID (obj)); 647 write_fmt_string (printcharfun, " 0x%x>", LISP_OBJECT_UID (obj));
646 } 648 }
647 649
648 DEFINE_NODUMP_LISP_OBJECT ("frame", frame, 650 DEFINE_NODUMP_LISP_OBJECT ("frame", frame,
649 mark_frame, print_frame, 0, 0, 0, 651 mark_frame, print_frame, 0, 0, 0,