Mercurial > emacs
view src/.gdbinit @ 1052:b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
return value of XWithdrawWindow; it could indicate that the window
wasn't successfully redrawn.
* xterm.c (x_make_frame_invisible): Use XWithdrawWindow when
available [HAVE_X11R4]; send the UnmapNotify event when
appropriate [HAVE_X11]; just unmap the window if that's all that's
needed [not HAVE_X11].
* xterm.c (x_set_text_property): Removed; it's only called from
one place. Who wants *another* layer of indirection?
* xterm.c: Use the FRAME_X_WINDOW macro, for readability.
* xterm.c (x_death_handler): Renamed to x_connection_closed.
(x_term_init): Use x_connection_closed as the SIGPIPE handler.
* xterm.c (acceptable_x_error_p, x_handler_error_gracefully,
x_error_handler): Removed; you can't catch X errors this way,
since you can't perform X operations from within an X error
handler, and even though we call error, we're still within an X
error handler.
(x_error_quitter, x_error_catcher): New functions, for panicking
on and catching X protocol errors.
(x_caught_error_message): Buffer for caught X errors.
(x_catch_errors, x_check_errors, x_uncatch_errors): New functions
for catching errors.
(x_term_init): Set the error handler to x_error_quitter, rather
than x_error_handler.
* xterm.c (x_death_handler): Renamed to x_connection_closed.
(x_term_init): Use x_connection_closed as the SIGPIPE handler.
* xterm.c (acceptable_x_error_p, x_handler_error_gracefully,
x_error_handler): Removed; you can't catch X errors this way,
since you can't perform X operations from within an X error
handler, and even though we call error, we're still within an X
error handler.
(x_error_quitter, x_error_catcher): New functions, for panicking
on and catching X protocol errors.
(x_caught_error_message): Buffer for caught X errors.
(x_catch_errors, x_check_errors, x_uncatch_errors): New functions
for catching errors.
(x_term_init): Set the error handler to x_error_quitter, rather
than x_error_handler.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Sat, 29 Aug 1992 03:31:07 +0000 |
parents | 8ab465f7a7ff |
children | ee559fe0f1ab |
line wrap: on
line source
# Set up something to print out s-expressions. define pr set Fprin1 ($, Qexternal_debugging_output) echo \n end document pr Print the emacs s-expression which is $. Works only when an inferior emacs is executing. end define xtype output (enum Lisp_Type) (($ >> 24) & 0x7f) echo \n end document xtype Print the type of $, assuming it is an Elisp value. end define xint print (($ & 0x00ffffff) << 8) >> 8 end document xint Print $, assuming it is an Elisp integer. This gets the sign right. end define xptr print (void *) ($ & 0x00ffffff) end document xptr Print the pointer portion of $, assuming it is an Elisp value. end define xwindow print (struct window *) ($ & 0x00ffffff) printf "%dx%d+%d+%d\n", $->width, $->height, $->left, $->top end document xwindow Print $ as a window pointer, assuming it is an Elisp window value. Print the window's position as "WIDTHxHEIGHT+LEFT+TOP". end define xmarker print (struct Lisp_Marker *) ($ & 0x00ffffff) end document xmarker Print $ as a marker pointer, assuming it is an Elisp marker value. end define xbuffer print (struct buffer *) ($ & 0x00ffffff) output &((struct Lisp_String *) (($->name) & 0x00ffffff))->data echo \n end document xbuffer Set $ as a buffer pointer, assuming it is an Elisp buffer value. Print the name of the buffer. end define xsymbol print (struct Lisp_Symbol *) ($ & 0x00ffffff) output &$->name->data echo \n end document xsymbol Print the name and address of the symbol $. This command assumes that $ is an Elisp symbol value. end define xstring print (struct Lisp_String *) ($ & 0x00ffffff) output ($->size > 10000) ? "big string" : ($->data[0])@($->size) echo \n end document xstring Print the contents and address of the string $. This command assumes that $ is an Elisp string value. end define xvector print (struct Lisp_Vector *) ($ & 0x00ffffff) output ($->size > 1000) ? "big vector" : ($->contents[0])@($->size) echo \n end document xvector Print the contents and address of the vector $. This command assumes that $ is an Elisp vector value. end define xscreen print (struct screen *) ($ & 0x00ffffff) end document xwindow Print $ as a screen pointer, assuming it is an Elisp screen value. end define xcons print (struct Lisp_Cons *) ($ & 0x00ffffff) output *(struct Lisp_Cons *) ($ & 0x00ffffff) echo \n end document xcons Print the contents of $, assuming it is an Elisp cons. end define xcar print ((($ >> 24) & 0x7f) == Lisp_Cons ? ((struct Lisp_Cons *) ($ & 0x00ffffff))->car : 0) end document xcar Print the car of $, assuming it is an Elisp pair. end define xcdr print ((($ >> 24) & 0x7f) == Lisp_Cons ? ((struct Lisp_Cons *) ($ & 0x00ffffff))->cdr : 0) end document xcdr Print the cdr of $, assuming it is an Elisp pair. end set print pretty on unset environment TERMCAP unset environment TERM echo TERMCAP and TERM environment variables unset.\n show environment DISPLAY set args -q # Don't let abort actually run, as it will make # stdio stop working and therefore the `pr' command below as well. break abort # If we are running in synchronous mode, we want a chance to look around # before Emacs exits. Perhaps we should put the break somewhere else # instead... break _XPrintDefaultError