From 5edd11ac9b073441decb82a22f449864ba491f98 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 3 Feb 1995 21:04:33 +0000 Subject: (do_symval_forwarding): Use current_perdisplay, not get_perdisplay. (store_symval_forwarding, find_symbol_value): Likewise. --- src/data.c | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/src/data.c b/src/data.c index 298c0b646db..efa77a4506b 100644 --- a/src/data.c +++ b/src/data.c @@ -644,9 +644,10 @@ do_symval_forwarding (valcontents) return *(Lisp_Object *)(offset + (char *)current_buffer); case Lisp_Misc_Display_Objfwd: + if (!current_perdisplay) + abort (); offset = XDISPLAY_OBJFWD (valcontents)->offset; - return *(Lisp_Object *)(offset - + (char *)get_perdisplay (selected_frame)); + return *(Lisp_Object *)(offset + (char *)current_perdisplay); } return valcontents; } @@ -694,7 +695,9 @@ store_symval_forwarding (sym, valcontents, newval) break; case Lisp_Misc_Display_Objfwd: - (*(Lisp_Object *)((char *)get_perdisplay (selected_frame) + if (!current_perdisplay) + abort (); + (*(Lisp_Object *)((char *)current_perdisplay + XDISPLAY_OBJFWD (valcontents)->offset)) = newval; break; @@ -798,8 +801,10 @@ find_symbol_value (sym) + (char *)current_buffer); case Lisp_Misc_Display_Objfwd: + if (!current_perdisplay) + abort (); return *(Lisp_Object *)(XDISPLAY_OBJFWD (valcontents)->offset - + (char *)get_perdisplay (selected_frame)); + + (char *)current_perdisplay); } } -- cgit v1.2.1