# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 791265582 0
# Node ID 6063c1f07723edac0fbbeb6af3159933cccadf31
# Parent  07d8c5ac0f6036cc3819efa34f67c055b7d23948
(xdispobjfwd): New macro.

diff -r 07d8c5ac0f60 -r 6063c1f07723 src/.gdbinit
--- a/src/.gdbinit	Sat Jan 28 03:51:55 1995 +0000
+++ b/src/.gdbinit	Sat Jan 28 03:59:42 1995 +0000
@@ -122,6 +122,13 @@
 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