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 | ac2edb7c9e5a7a9766d034b4b3be25c5b5dfe270 (patch) | |
| tree | e00d51e868252af47d78be703fd23a301ee65b76 /src/print.c | |
| parent | 4a335a1b26497020644fd523df0b098c33c34d79 (diff) | |
| download | emacs-ac2edb7c9e5a7a9766d034b4b3be25c5b5dfe270.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.
Diffstat (limited to 'src/print.c')
| -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 */ |