diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-03-15 06:02:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-03-15 06:02:29 +0000 |
| commit | cdaa87fd065ddd2431ce9ff21c5b9de4f4b6419b (patch) | |
| tree | d070259e9aee3f5601a22eb0cddd3d1ab1cc3b55 | |
| parent | 7cf2444d4f8163c57f15b1dde29b603cde877ef1 (diff) | |
| download | emacs-cdaa87fd065ddd2431ce9ff21c5b9de4f4b6419b.tar.gz | |
(PRINTPREPARE): Handle marker that points nowhere.
| -rw-r--r-- | src/print.c | 40 |
1 files changed, 22 insertions, 18 deletions
diff --git a/src/print.c b/src/print.c index a43a774c0f4..ba41e46454e 100644 --- a/src/print.c +++ b/src/print.c @@ -141,26 +141,30 @@ glyph_to_str_cpy (glyphs, str) Lisp_Object original; */ -#define PRINTPREPARE \ - original = printcharfun; \ - if (NILP (printcharfun)) printcharfun = Qt; \ - if (XTYPE (printcharfun) == Lisp_Buffer) \ - { if (XBUFFER (printcharfun) != current_buffer) Fset_buffer (printcharfun); \ - printcharfun = Qnil;}\ - if (XTYPE (printcharfun) == Lisp_Marker) \ - { if (XMARKER (original)->buffer != current_buffer) \ - set_buffer_internal (XMARKER (original)->buffer); \ - old_point = point; \ - SET_PT (marker_position (printcharfun)); \ - start_point = point; \ +#define PRINTPREPARE \ + original = printcharfun; \ + if (NILP (printcharfun)) printcharfun = Qt; \ + if (XTYPE (printcharfun) == Lisp_Buffer) \ + { if (XBUFFER (printcharfun) != current_buffer) \ + Fset_buffer (printcharfun); \ + printcharfun = Qnil;} \ + if (XTYPE (printcharfun) == Lisp_Marker) \ + { if (!(XMARKER (original)->buffer)) \ + error ("Marker does not point anywhere"); \ + if (XMARKER (original)->buffer != current_buffer) \ + set_buffer_internal (XMARKER (original)->buffer); \ + old_point = point; \ + SET_PT (marker_position (printcharfun)); \ + start_point = point; \ printcharfun = Qnil;} -#define PRINTFINISH \ - if (XTYPE (original) == Lisp_Marker) \ - Fset_marker (original, make_number (point), Qnil); \ - if (old_point >= 0) \ - SET_PT ((old_point >= start_point ? point - start_point : 0) + old_point); \ - if (old != current_buffer) \ +#define PRINTFINISH \ + if (XTYPE (original) == Lisp_Marker) \ + Fset_marker (original, make_number (point), Qnil); \ + if (old_point >= 0) \ + SET_PT (old_point + (old_point >= start_point \ + ? point - start_point : 0)); \ + if (old != current_buffer) \ set_buffer_internal (old) #define PRINTCHAR(ch) printchar (ch, printcharfun) |