comparison src/.gdbinit @ 1789:2c65d1a8af09

* .gdbinit: Add "-geometry +0+0" to default args. (xscrollbar): New command.

1788:aaccd635fb71

end
document xsubr
Print the address of the subr which the Lisp_Object $ points to.
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

1789:2c65d1a8af09

end
document xsubr
Print the address of the subr which the Lisp_Object $ points to.
end

define xscrollbar
print (struct scrollbar *) (($ & 0x00ffffff) | $data_seg_bits)
output *$
echo \n
end
document xsubr
Print $ as a scrollbar pointer.
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 -geometry +0+0

# Don't let abort actually run, as it will make
# stdio stop working and therefore the `pr' command below as well.
break abort