Mercurial > hg > xemacs-beta

comparison src/console-impl.h @ 5133:444a448b2f53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge branch ben-lisp-object into default branch
author Ben Wing <ben@xemacs.org>
date Sun, 07 Mar 2010 06:47:37 -0600
parents 7be849cb8828
children 1fae11d56ad2
comparison
equal deleted inserted replaced
5113:b2dcf6a6d8ab 5133:444a448b2f53
408 #define CONSOLE_IMPLEMENTATION_FLAGS(type, flg) \ 408 #define CONSOLE_IMPLEMENTATION_FLAGS(type, flg) \
409 (type##_console_methods->flags = flg) 409 (type##_console_methods->flags = flg)
410 410
411 struct console 411 struct console
412 { 412 {
413 struct LCRECORD_HEADER header; 413 NORMAL_LISP_OBJECT_HEADER header;
414 414
415 /* Description of this console's methods. */ 415 /* Description of this console's methods. */
416 struct console_methods *conmeths; 416 struct console_methods *conmeths;
417 417
418 /* Enumerated constant listing which type of console this is (TTY, X, 418 /* Enumerated constant listing which type of console this is (TTY, X,
452 }; 452 };
453 453
454 /* Redefine basic properties more efficiently */ 454 /* Redefine basic properties more efficiently */
455 455
456 #undef CONSOLE_LIVE_P 456 #undef CONSOLE_LIVE_P
457 #define CONSOLE_LIVE_P(con) (!EQ (CONSOLE_TYPE (con), Qdead)) 457 /* The following is the old way, but it can lead to crashes in certain
458 weird circumstances, where you might want to be printing a console via
459 debug_print() */
460 /* #define CONSOLE_LIVE_P(con) (!EQ (CONSOLE_TYPE (con), Qdead)) */
461 #define CONSOLE_LIVE_P(con) ((con)->contype != dead_console)
458 #undef CONSOLE_DEVICE_LIST 462 #undef CONSOLE_DEVICE_LIST
459 #define CONSOLE_DEVICE_LIST(con) ((con)->device_list) 463 #define CONSOLE_DEVICE_LIST(con) ((con)->device_list)
460 464
461 #define CONSOLE_TYPE_P(con, type) EQ (CONSOLE_TYPE (con), Q##type) 465 #define CONSOLE_TYPE_P(con, type) EQ (CONSOLE_TYPE (con), Q##type)
462 466