diff options
| author | Kenichi Handa | 1997-04-07 07:12:13 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-04-07 07:12:13 +0000 |
| commit | 3701b5de07a2998b089ef9e4f65bebedbb554039 (patch) | |
| tree | 39f1fc64eed0169aed1249fb61d2aa6babeaa3ab /src/print.c | |
| parent | ed8ec86d08a6f2b656e67493003aa4624f868299 (diff) | |
| download | emacs-3701b5de07a2998b089ef9e4f65bebedbb554039.tar.gz emacs-3701b5de07a2998b089ef9e4f65bebedbb554039.zip | |
(read1): Adjusted for the new structure of Lisp_Char_Table.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/print.c b/src/print.c index 57f6ffdf826..8a218e88105 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -1258,6 +1258,8 @@ print (obj, printcharfun, escapeflag) | |||
| 1258 | character slots. But we add #^ as a prefix. */ | 1258 | character slots. But we add #^ as a prefix. */ |
| 1259 | PRINTCHAR ('#'); | 1259 | PRINTCHAR ('#'); |
| 1260 | PRINTCHAR ('^'); | 1260 | PRINTCHAR ('^'); |
| 1261 | if (SUB_CHAR_TABLE_P (obj)) | ||
| 1262 | PRINTCHAR ('^'); | ||
| 1261 | size &= PSEUDOVECTOR_SIZE_MASK; | 1263 | size &= PSEUDOVECTOR_SIZE_MASK; |
| 1262 | } | 1264 | } |
| 1263 | if (size & PSEUDOVECTOR_FLAG) | 1265 | if (size & PSEUDOVECTOR_FLAG) |