aboutsummaryrefslogtreecommitdiffstats
path: root/src/print.c
diff options
context:
space:
mode:
authorJim Blandy1992-07-13 20:56:17 +0000
committerJim Blandy1992-07-13 20:56:17 +0000
commit0137dbf747e9fcbfe6f37c7fb0bbb29012a27179 (patch)
tree658380474eae580fc6b03b724e6498d9cf0b783f /src/print.c
parentff11dfa15b3b56559bac0d5c6b0a26a80d2d5f6d (diff)
downloademacs-0137dbf747e9fcbfe6f37c7fb0bbb29012a27179.tar.gz
emacs-0137dbf747e9fcbfe6f37c7fb0bbb29012a27179.zip
entered into RCS
Diffstat (limited to 'src/print.c')
-rw-r--r--src/print.c42
1 files changed, 21 insertions, 21 deletions
diff --git a/src/print.c b/src/print.c
index 534d5d67b22..4b707c1c24d 100644
--- a/src/print.c
+++ b/src/print.c
@@ -25,7 +25,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
25 25
26#ifndef standalone 26#ifndef standalone
27#include "buffer.h" 27#include "buffer.h"
28#include "screen.h" 28#include "frame.h"
29#include "window.h" 29#include "window.h"
30#include "process.h" 30#include "process.h"
31#include "dispextern.h" 31#include "dispextern.h"
@@ -159,7 +159,7 @@ glyph_to_str_cpy (glyphs, str)
159 159
160#define PRINTCHAR(ch) printchar (ch, printcharfun) 160#define PRINTCHAR(ch) printchar (ch, printcharfun)
161 161
162/* Index of first unused element of SCREEN_MESSAGE_BUF(selected_screen). */ 162/* Index of first unused element of FRAME_MESSAGE_BUF(selected_frame). */
163static int printbufidx; 163static int printbufidx;
164 164
165static void 165static void
@@ -190,17 +190,17 @@ printchar (ch, fun)
190 return; 190 return;
191 } 191 }
192 192
193 if (echo_area_glyphs != SCREEN_MESSAGE_BUF (selected_screen) 193 if (echo_area_glyphs != FRAME_MESSAGE_BUF (selected_frame)
194 || !message_buf_print) 194 || !message_buf_print)
195 { 195 {
196 echo_area_glyphs = SCREEN_MESSAGE_BUF (selected_screen); 196 echo_area_glyphs = FRAME_MESSAGE_BUF (selected_frame);
197 printbufidx = 0; 197 printbufidx = 0;
198 message_buf_print = 1; 198 message_buf_print = 1;
199 } 199 }
200 200
201 if (printbufidx < SCREEN_WIDTH (selected_screen) - 1) 201 if (printbufidx < FRAME_WIDTH (selected_frame) - 1)
202 SCREEN_MESSAGE_BUF (selected_screen)[printbufidx++] = ch; 202 FRAME_MESSAGE_BUF (selected_frame)[printbufidx++] = ch;
203 SCREEN_MESSAGE_BUF (selected_screen)[printbufidx] = 0; 203 FRAME_MESSAGE_BUF (selected_frame)[printbufidx] = 0;
204 204
205 return; 205 return;
206 } 206 }
@@ -242,19 +242,19 @@ strout (ptr, size, printcharfun)
242 return; 242 return;
243 } 243 }
244 244
245 if (echo_area_glyphs != SCREEN_MESSAGE_BUF (selected_screen) 245 if (echo_area_glyphs != FRAME_MESSAGE_BUF (selected_frame)
246 || !message_buf_print) 246 || !message_buf_print)
247 { 247 {
248 echo_area_glyphs = SCREEN_MESSAGE_BUF (selected_screen); 248 echo_area_glyphs = FRAME_MESSAGE_BUF (selected_frame);
249 printbufidx = 0; 249 printbufidx = 0;
250 message_buf_print = 1; 250 message_buf_print = 1;
251 } 251 }
252 252
253 if (i > SCREEN_WIDTH (selected_screen) - printbufidx - 1) 253 if (i > FRAME_WIDTH (selected_frame) - printbufidx - 1)
254 i = SCREEN_WIDTH (selected_screen) - printbufidx - 1; 254 i = FRAME_WIDTH (selected_frame) - printbufidx - 1;
255 bcopy (ptr, &SCREEN_MESSAGE_BUF (selected_screen) [printbufidx], i); 255 bcopy (ptr, &FRAME_MESSAGE_BUF (selected_frame) [printbufidx], i);
256 printbufidx += i; 256 printbufidx += i;
257 SCREEN_MESSAGE_BUF (selected_screen) [printbufidx] = 0; 257 FRAME_MESSAGE_BUF (selected_frame) [printbufidx] = 0;
258 258
259 return; 259 return;
260 } 260 }
@@ -275,7 +275,7 @@ print_string (string, printcharfun)
275 Lisp_Object printcharfun; 275 Lisp_Object printcharfun;
276{ 276{
277 if (EQ (printcharfun, Qnil) || EQ (printcharfun, Qt)) 277 if (EQ (printcharfun, Qnil) || EQ (printcharfun, Qt))
278 /* In predictable cases, strout is safe: output to buffer or screen. */ 278 /* In predictable cases, strout is safe: output to buffer or frame. */
279 strout (XSTRING (string)->data, XSTRING (string)->size, printcharfun); 279 strout (XSTRING (string)->data, XSTRING (string)->size, printcharfun);
280 else 280 else
281 { 281 {
@@ -887,17 +887,17 @@ print (obj, printcharfun, escapeflag)
887 strout ("#<window-configuration>", -1, printcharfun); 887 strout ("#<window-configuration>", -1, printcharfun);
888 break; 888 break;
889 889
890#ifdef MULTI_SCREEN 890#ifdef MULTI_FRAME
891 case Lisp_Screen: 891 case Lisp_Frame:
892 strout (((XSCREEN (obj)->display.nothing == 0) 892 strout ((FRAME_LIVE_P (XFRAME (obj))
893 ? "#<dead screen " : "#<screen "), 893 ? "#<frame " : "#<dead frame "),
894 -1, printcharfun); 894 -1, printcharfun);
895 print_string (XSCREEN (obj)->name, printcharfun); 895 print_string (XFRAME (obj)->name, printcharfun);
896 sprintf (buf, " 0x%x", XFASTINT (XSCREEN (obj))); 896 sprintf (buf, " 0x%x", XFASTINT (XFRAME (obj)));
897 strout (buf, -1, printcharfun); 897 strout (buf, -1, printcharfun);
898 strout (">", -1, printcharfun); 898 strout (">", -1, printcharfun);
899 break; 899 break;
900#endif /* MULTI_SCREEN */ 900#endif /* MULTI_FRAME */
901 901
902 case Lisp_Marker: 902 case Lisp_Marker:
903 strout ("#<marker ", -1, printcharfun); 903 strout ("#<marker ", -1, printcharfun);