Mercurial > emacs
comparison src/.gdbinit @ 727:540b047ece4d
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Wed, 24 Jun 1992 05:09:26 +0000 |
parents | 70b112526394 |
children | a8d94735277e |
comparison
equal
deleted
inserted
replaced
726:5f08efa38dd0 | 727:540b047ece4d |
---|---|
30 Print the pointer portion of $, assuming it is an Elisp value. | 30 Print the pointer portion of $, assuming it is an Elisp value. |
31 end | 31 end |
32 | 32 |
33 define xwindow | 33 define xwindow |
34 print (struct window *) ($ & 0x00ffffff) | 34 print (struct window *) ($ & 0x00ffffff) |
35 print ($->left)@4 | |
36 print $$ | |
35 end | 37 end |
36 document xwindow | 38 document xwindow |
37 Print $ as a window pointer, assuming it is an Elisp window value. | 39 Print $ as a window pointer, assuming it is an Elisp window value. |
40 Print the window's position as { left, top, height, width }. | |
38 end | 41 end |
39 | 42 |
40 define xmarker | 43 define xmarker |
41 print (struct Lisp_Marker *) ($ & 0x00ffffff) | 44 print (struct Lisp_Marker *) ($ & 0x00ffffff) |
42 end | 45 end |
44 Print $ as a marker pointer, assuming it is an Elisp marker value. | 47 Print $ as a marker pointer, assuming it is an Elisp marker value. |
45 end | 48 end |
46 | 49 |
47 define xbuffer | 50 define xbuffer |
48 print (struct buffer *) ($ & 0x00ffffff) | 51 print (struct buffer *) ($ & 0x00ffffff) |
52 print &((struct Lisp_String *) (($->name) & 0x00ffffff))->data | |
53 print $$ | |
49 end | 54 end |
50 document xbuffer | 55 document xbuffer |
51 Print $ as a buffer pointer, assuming it is an Elisp buffer value. | 56 Set $ as a buffer pointer, assuming it is an Elisp buffer value. |
57 Print the name of the buffer. | |
52 end | 58 end |
53 | 59 |
54 define xsymbol | 60 define xsymbol |
55 print (struct Lisp_Symbol *) ($ & 0x00ffffff) | 61 print (struct Lisp_Symbol *) ($ & 0x00ffffff) |
56 print &$->name->data | 62 print &$->name->data |