Mercurial > hg > xemacs-beta

comparison src/marker.c @ 4990:8f0cf4fd3d2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Automatic merge
author Ben Wing <ben@xemacs.org>
date Sat, 06 Feb 2010 04:01:46 -0600
parents e813cf16c015
children b5df3737028a
comparison
equal deleted inserted replaced
4989:d2ec55325515 4990:8f0cf4fd3d2c
60 Lisp_Marker *marker = XMARKER (obj); 60 Lisp_Marker *marker = XMARKER (obj);
61 61
62 if (print_readably) 62 if (print_readably)
63 printing_unreadable_object ("#<marker 0x%lx>", (long) marker); 63 printing_unreadable_object ("#<marker 0x%lx>", (long) marker);
64 64
65 write_c_string (printcharfun, GETTEXT ("#<marker ")); 65 write_ascstring (printcharfun, GETTEXT ("#<marker "));
66 if (!marker->buffer) 66 if (!marker->buffer)
67 write_c_string (printcharfun, GETTEXT ("in no buffer")); 67 write_ascstring (printcharfun, GETTEXT ("in no buffer"));
68 else 68 else
69 { 69 {
70 write_fmt_string (printcharfun, "at %ld in ", 70 write_fmt_string (printcharfun, "at %ld in ",
71 (long) marker_position (obj)); 71 (long) marker_position (obj));
72 print_internal (marker->buffer->name, printcharfun, 0); 72 print_internal (marker->buffer->name, printcharfun, 0);
73 } 73 }
74 if (marker->insertion_type) 74 if (marker->insertion_type)
75 write_c_string (printcharfun, " insertion-type=t"); 75 write_ascstring (printcharfun, " insertion-type=t");
76 write_fmt_string (printcharfun, " 0x%lx>", (long) marker); 76 write_fmt_string (printcharfun, " 0x%lx>", (long) marker);
77 } 77 }
78 78
79 static int 79 static int
80 marker_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth), 80 marker_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth),