From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 3 Feb 1995 21:04:33 +0000 (+0000)
Subject: (do_symval_forwarding): Use current_perdisplay, not get_perdisplay.
X-Git-Tag: emacs-19.34~5213
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31c45e79a1fe64a03e54d0b2e70d3f13635479e8;p=emacs.git

(do_symval_forwarding): Use current_perdisplay, not get_perdisplay.
(store_symval_forwarding, find_symbol_value): Likewise.
---

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);
 	}
     }