Mercurial > emacs
comparison src/.gdbinit @ 107900:8cc4089eeeaa
.gdbinit (xsubchartable): New command.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Mon, 19 Apr 2010 16:05:35 +0300 |
parents | d65c199e8bdd |
children | 8cdd7952f894 |
comparison
equal
deleted
inserted
replaced
107899:e4d7764c4cbe | 107900:8cc4089eeeaa |
---|---|
885 echo \n | 885 echo \n |
886 end | 886 end |
887 document xchartable | 887 document xchartable |
888 Print the address of the char-table $, and its purpose. | 888 Print the address of the char-table $, and its purpose. |
889 This command assumes that $ is an Emacs Lisp char-table value. | 889 This command assumes that $ is an Emacs Lisp char-table value. |
890 end | |
891 | |
892 define xsubchartable | |
893 xgetptr $ | |
894 print (struct Lisp_Sub_Char_Table *) $ptr | |
895 xgetint $->depth | |
896 set $depth = $int | |
897 xgetint $->min_char | |
898 printf "Depth: %d, Min char: %d (0x%x)\n", $depth, $int, $int | |
899 end | |
900 document xsubchartable | |
901 Print the address of the sub-char-table $, its depth and min-char. | |
902 This command assumes that $ is an Emacs Lisp sub-char-table value. | |
890 end | 903 end |
891 | 904 |
892 define xboolvector | 905 define xboolvector |
893 xgetptr $ | 906 xgetptr $ |
894 print (struct Lisp_Bool_Vector *) $ptr | 907 print (struct Lisp_Bool_Vector *) $ptr |