(xdispobjfwd): New macro.

diff --git a/src/.gdbinit b/src/.gdbinit
index cb5137239692637c3fdfb8e8cc93867d7d8d1ada..4332b0c4e24a0bec999aaecf5d4b4b3c70fc8e18 100644 (file)
--- 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