diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/.gdbinit | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/src/.gdbinit b/src/.gdbinit index d259aa466e3..d76c3aa8e05 100644 --- a/src/.gdbinit +++ b/src/.gdbinit | |||
| @@ -982,27 +982,6 @@ document xscrollbar | |||
| 982 | Print $ as a scrollbar pointer. | 982 | Print $ as a scrollbar pointer. |
| 983 | end | 983 | end |
| 984 | 984 | ||
| 985 | define xxwidget | ||
| 986 | if $argc == 1 | ||
| 987 | xgetptr $arg0 | ||
| 988 | else | ||
| 989 | xgetptr $ | ||
| 990 | end | ||
| 991 | set $xw = (struct xwidget *) $ptr | ||
| 992 | print $xw | ||
| 993 | printf " Type: " | ||
| 994 | xprintsym $xw->type | ||
| 995 | echo \n | ||
| 996 | printf " Title: " | ||
| 997 | xgetptr $xw->title | ||
| 998 | set $title = (struct Lisp_String *) $ptr | ||
| 999 | xprintstr $title | ||
| 1000 | echo \n | ||
| 1001 | end | ||
| 1002 | document xxwidget | ||
| 1003 | Print $ assuming it is a xwidget. | ||
| 1004 | end | ||
| 1005 | |||
| 1006 | define xpr | 985 | define xpr |
| 1007 | xtype | 986 | xtype |
| 1008 | if $type == Lisp_Int0 || $type == Lisp_Int1 | 987 | if $type == Lisp_Int0 || $type == Lisp_Int1 |
| @@ -1072,9 +1051,6 @@ define xpr | |||
| 1072 | if $vec == PVEC_HASH_TABLE | 1051 | if $vec == PVEC_HASH_TABLE |
| 1073 | xhashtable | 1052 | xhashtable |
| 1074 | end | 1053 | end |
| 1075 | if $vec == PVEC_XWIDGET | ||
| 1076 | xxwidget | ||
| 1077 | end | ||
| 1078 | else | 1054 | else |
| 1079 | xvector | 1055 | xvector |
| 1080 | end | 1056 | end |