Mercurial > emacs

comparison src/print.c @ 40472:25269c1f7a10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(print_object): Clarify indication of insertion type.
author Richard M. Stallman <rms@gnu.org>
date Tue, 30 Oct 2001 00:34:18 +0000
parents 3c480f0b4146
children cdfd4d09b79a
comparison
equal deleted inserted replaced
40471:a74c46e44b13 40472:25269c1f7a10
1826 { 1826 {
1827 case Lisp_Misc_Marker: 1827 case Lisp_Misc_Marker:
1828 strout ("#<marker ", -1, -1, printcharfun, 0); 1828 strout ("#<marker ", -1, -1, printcharfun, 0);
1829 /* Do you think this is necessary? */ 1829 /* Do you think this is necessary? */
1830 if (XMARKER (obj)->insertion_type != 0) 1830 if (XMARKER (obj)->insertion_type != 0)
1831 strout ("(before-insertion) ", -1, -1, printcharfun, 0); 1831 strout ("(moves after insertion) ", -1, -1, printcharfun, 0);
1832 if (!(XMARKER (obj)->buffer)) 1832 if (!(XMARKER (obj)->buffer))
1833 strout ("in no buffer", -1, -1, printcharfun, 0); 1833 strout ("in no buffer", -1, -1, printcharfun, 0);
1834 else 1834 else
1835 { 1835 {
1836 sprintf (buf, "at %d", marker_position (obj)); 1836 sprintf (buf, "at %d", marker_position (obj));