Mercurial > emacs

changeset 4003:49918d6c6dda

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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.
author Jim Blandy <jimb@redhat.com>
date Tue, 06 Jul 1993 07:44:36 +0000
parents 511feb3c2874
children 71541ea16adf
files src/print.c
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/print.c	Tue Jul 06 06:59:31 1993 +0000
+++ b/src/print.c	Tue Jul 06 07:44:36 1993 +0000
@@ -784,7 +784,6 @@
 #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 @@
      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 */