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