From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 3 Feb 1995 23:40:57 +0000 (+0000)
Subject: (print): Use current_perdisplay, not get_perdisplay.
X-Git-Tag: emacs-19.34~5207
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bc9e300ca4735c9f85c3915fd735bd4a1ba63844;p=emacs.git

(print): Use current_perdisplay, not get_perdisplay.
---

diff --git a/src/print.c b/src/print.c
index 9e940e4187a..08663d10cdc 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1051,9 +1051,12 @@ print (obj, printcharfun, escapeflag)
 
 	case Lisp_Misc_Display_Objfwd:
 	  strout (buf, "#<display_objfwd to ", -1, printcharfun);
-	  print (*(Lisp_Object *)((char *) get_perdisplay (selected_frame)
-				  + XDISPLAY_OBJFWD (obj)->offset),
-		 printcharfun, escapeflag);
+	  if (!current_perdisplay)
+	    strout ("no-current-perdisplay");
+	  else
+	    print (*(Lisp_Object *)((char *) current_perdisplay
+				    + XDISPLAY_OBJFWD (obj)->offset),
+		   printcharfun, escapeflag);
 	  PRINTCHAR ('>');
 	  break;