diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-01-02 06:28:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-01-02 06:28:29 +0000 |
| commit | 0f430023c3332e3a3a8bc6f3572b82b342f4a2a9 (patch) | |
| tree | ef0795292332ea215bfd6752042240d123562570 /src/print.c | |
| parent | f541577af48f03cc6ed7f18c2174a9b1f1aac220 (diff) | |
| download | emacs-0f430023c3332e3a3a8bc6f3572b82b342f4a2a9.tar.gz | |
(print): Don't drop thru to error for markers and overlays.
(print): Make buffer case a branch of the Lisp_Vectorlike case.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 29 |
1 files changed, 16 insertions, 13 deletions
diff --git a/src/print.c b/src/print.c index cb0b6c9fb70..8c341aabfc5 100644 --- a/src/print.c +++ b/src/print.c @@ -923,6 +923,19 @@ print (obj, printcharfun, escapeflag) } PRINTCHAR ('>'); } + else if (BUFFERP (obj)) + { + if (NILP (XBUFFER (obj)->name)) + strout ("#<killed buffer>", -1, printcharfun); + else if (escapeflag) + { + strout ("#<buffer ", -1, printcharfun); + print_string (XBUFFER (obj)->name, printcharfun); + PRINTCHAR ('>'); + } + else + print_string (XBUFFER (obj)->name, printcharfun); + } else if (WINDOW_CONFIGURATIONP (obj)) { strout ("#<window-configuration>", -1, printcharfun); @@ -965,19 +978,6 @@ print (obj, printcharfun, escapeflag) break; #ifndef standalone - case Lisp_Buffer: - if (NILP (XBUFFER (obj)->name)) - strout ("#<killed buffer>", -1, printcharfun); - else if (escapeflag) - { - strout ("#<buffer ", -1, printcharfun); - print_string (XBUFFER (obj)->name, printcharfun); - PRINTCHAR ('>'); - } - else - print_string (XBUFFER (obj)->name, printcharfun); - break; - case Lisp_Misc: if (MARKERP (obj)) { @@ -992,6 +992,7 @@ print (obj, printcharfun, escapeflag) print_string (XMARKER (obj)->buffer->name, printcharfun); } PRINTCHAR ('>'); + break; } else if (OVERLAYP (obj)) { @@ -1008,7 +1009,9 @@ print (obj, printcharfun, escapeflag) printcharfun); } PRINTCHAR ('>'); + break; } + /* Other cases fall through to get an error. */ #endif /* standalone */ default: |