Mercurial > hg > xemacs-beta

comparison src/fileio.c @ 215:1f0dabaa0855 r20-4b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b6
author cvs
date Mon, 13 Aug 2007 10:07:35 +0200
parents 78f53ef88e17
children 2c611d1463a6
comparison
equal deleted inserted replaced
214:c5d88c05e1e9 215:1f0dabaa0855
3822 { 3822 {
3823 /* This function can GC */ 3823 /* This function can GC */
3824 Lisp_Object annotations; 3824 Lisp_Object annotations;
3825 Lisp_Object p, res; 3825 Lisp_Object p, res;
3826 struct gcpro gcpro1, gcpro2; 3826 struct gcpro gcpro1, gcpro2;
3827 Lisp_Object original_buffer;
3828
3829 XSETBUFFER (original_buffer, current_buffer);
3827 3830
3828 annotations = Qnil; 3831 annotations = Qnil;
3829 p = Vwrite_region_annotate_functions; 3832 p = Vwrite_region_annotate_functions;
3830 GCPRO2 (annotations, p); 3833 GCPRO2 (annotations, p);
3831 while (!NILP (p)) 3834 while (!NILP (p))
3856 p = current_buffer->file_format; 3859 p = current_buffer->file_format;
3857 while (!NILP (p)) 3860 while (!NILP (p))
3858 { 3861 {
3859 struct buffer *given_buffer = current_buffer; 3862 struct buffer *given_buffer = current_buffer;
3860 Vwrite_region_annotations_so_far = annotations; 3863 Vwrite_region_annotations_so_far = annotations;
3861 res = call3 (Qformat_annotate_function, Fcar (p), start, end); 3864 res = call4 (Qformat_annotate_function, Fcar (p), start, end,
3865 original_buffer);
3862 if (current_buffer != given_buffer) 3866 if (current_buffer != given_buffer)
3863 { 3867 {
3864 start = make_int (BUF_BEGV (current_buffer)); 3868 start = make_int (BUF_BEGV (current_buffer));
3865 end = make_int (BUF_ZV (current_buffer)); 3869 end = make_int (BUF_ZV (current_buffer));
3866 annotations = Qnil; 3870 annotations = Qnil;