From: Jim Blandy <jimb@redhat.com>
Date: Tue, 6 Jul 1993 07:44:36 +0000 (+0000)
Subject: * print.c: Get rid of extra space at the end of print syntax for
X-Git-Tag: emacs-19.34~11848
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=30503c0bab8f0a86a0cb4f1133df43110b77fea2;p=emacs.git

* 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.
---

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 */