From 30503c0bab8f0a86a0cb4f1133df43110b77fea2 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 6 Jul 1993 07:44:36 +0000 Subject: [PATCH] * print.c: Get rid of extra space at the end of print syntax for strings with intervals. [USE_TEXT_PROPERTIES] (print): Don't print a space before the interval property lists. [USE_TEXT_PROPERTIES] (print_interval): Print a space before this internal's properties, not after. --- src/print.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/print.c b/src/print.c index 3336a565b1d..cd295fcdc0e 100644 --- a/src/print.c +++ b/src/print.c @@ -784,7 +784,6 @@ print (obj, printcharfun, escapeflag) #ifdef USE_TEXT_PROPERTIES if (!NULL_INTERVAL_P (XSTRING (obj)->intervals)) { - PRINTCHAR (' '); traverse_intervals (XSTRING (obj)->intervals, 0, 0, print_interval, printcharfun); PRINTCHAR (')'); @@ -991,13 +990,13 @@ print_interval (interval, printcharfun) INTERVAL interval; Lisp_Object printcharfun; { + PRINTCHAR (' '); print (make_number (interval->position), printcharfun, 1); PRINTCHAR (' '); print (make_number (interval->position + LENGTH (interval)), printcharfun, 1); PRINTCHAR (' '); print (interval->plist, printcharfun, 1); - PRINTCHAR (' '); } #endif /* USE_TEXT_PROPERTIES */ -- 2.39.5