diff options
| -rw-r--r-- | src/.gdbinit | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/.gdbinit b/src/.gdbinit index cb513723969..4332b0c4e24 100644 --- a/src/.gdbinit +++ b/src/.gdbinit @@ -122,6 +122,13 @@ document xbufobjfwd Print $ as a buffer-local object forwarding pointer, assuming it is an Emacs Lisp Misc value. end +define xdispobjfwd +print (struct Lisp_Display_Objfwd *) (($ & 0x0fffffff) | $data_seg_bits) +end +document xdispobjfwd +Print $ as a display-local object forwarding pointer, assuming it is an Emacs Lisp Misc value. +end + define xbuflocal print (struct Lisp_Buffer_Local_Value *) (($ & 0x0fffffff) | $data_seg_bits) end |