Mercurial > hg > xemacs-beta
diff src/console-impl.h @ 5133:444a448b2f53
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 |
line wrap: on
line diff
--- a/src/console-impl.h Sun Mar 07 06:43:19 2010 -0600 +++ b/src/console-impl.h Sun Mar 07 06:47:37 2010 -0600 @@ -410,7 +410,7 @@ struct console { - struct LCRECORD_HEADER header; + NORMAL_LISP_OBJECT_HEADER header; /* Description of this console's methods. */ struct console_methods *conmeths; @@ -454,7 +454,11 @@ /* Redefine basic properties more efficiently */ #undef CONSOLE_LIVE_P -#define CONSOLE_LIVE_P(con) (!EQ (CONSOLE_TYPE (con), Qdead)) +/* The following is the old way, but it can lead to crashes in certain + weird circumstances, where you might want to be printing a console via + debug_print() */ +/* #define CONSOLE_LIVE_P(con) (!EQ (CONSOLE_TYPE (con), Qdead)) */ +#define CONSOLE_LIVE_P(con) ((con)->contype != dead_console) #undef CONSOLE_DEVICE_LIST #define CONSOLE_DEVICE_LIST(con) ((con)->device_list)