Mercurial > emacs
changeset 4267:aabcab2eab73
Add size to geometry spec.
Specify sevenbit-strings in set print.
(xfloat): New command.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sun, 25 Jul 1993 03:14:29 +0000 |
| parents | 5a7266ff9af1 |
| children | 0795ced6013f |
| files | src/.gdbinit |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/.gdbinit Sun Jul 25 02:19:59 1993 +0000 +++ b/src/.gdbinit Sun Jul 25 03:14:29 1993 +0000 @@ -146,6 +146,13 @@ Print the address of the struct Lisp_process which the Lisp_Object $ points to. end +define xfloat +print ((struct Lisp_Float *) (($ & 0x00ffffff) | $data_seg_bits))->data +end +document xfloat +Print $ assuming it is a lisp floating-point number. +end + define xscrollbar print (struct scrollbar *) (($ & 0x00ffffff) | $data_seg_bits) output *$ @@ -156,12 +163,13 @@ end set print pretty on +set print sevenbit-strings unset environment TERMCAP unset environment TERM echo TERMCAP and TERM environment variables unset.\n show environment DISPLAY -set args -q -geometry +0+0 +set args -q -geometry 80x40+0+0 # Don't let abort actually run, as it will make # stdio stop working and therefore the `pr' command above as well.