# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 791854857 0
# Node ID 47e4c51a0e431d4e5b35e28ece1a5444a70fc047
# Parent  050a2d62d1867c6b3f94325da565e51f98f6aac5
(print): Use current_perdisplay, not get_perdisplay.

diff -r 050a2d62d186 -r 47e4c51a0e43 src/print.c
--- a/src/print.c	Fri Feb 03 23:27:14 1995 +0000
+++ b/src/print.c	Fri Feb 03 23:40:57 1995 +0000
@@ -1051,9 +1051,12 @@
 
 	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;