diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-07-06 07:44:36 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-07-06 07:44:36 +0000 |
| commit | 30503c0bab8f0a86a0cb4f1133df43110b77fea2 (patch) | |
| tree | bb9ae138c5da18e9d55f930b4857ff8e52fb8451 | |
| parent | d902a61114d55101ca66996df25fd985187862e4 (diff) | |
| download | emacs-30503c0bab8f0a86a0cb4f1133df43110b77fea2.tar.gz | |
* 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.
| -rw-r--r-- | src/print.c | 3 |
1 files changed, 1 insertions, 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 */ |