From cd39e9464ad1ee9081dc8f011ed47aa524eb7859 Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 28 Jan 1995 03:59:42 +0000
Subject: [PATCH] (xdispobjfwd): New macro.

---
 src/.gdbinit | 7 +++++++
 1 file changed, 7 insertions(+)

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
-- 
2.39.5