(xdispobjfwd): New macro.

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