From 0a20b6841d0534ff4777d5429b657a58047e139b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 1 Sep 1996 20:44:46 +0000 Subject: [PATCH] (build_annotations): Remember original buffer that the region came from; pass this to `format-annotate-function'. --- src/fileio.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/fileio.c b/src/fileio.c index a9d2b95e09a..88fac439231 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -3749,6 +3749,9 @@ build_annotations (start, end) Lisp_Object annotations; Lisp_Object p, res; struct gcpro gcpro1, gcpro2; + Lisp_Object original_buffer; + + XSETBUFFER (original_buffer, current_buffer); annotations = Qnil; p = Vwrite_region_annotate_functions; @@ -3783,7 +3786,8 @@ build_annotations (start, end) { struct buffer *given_buffer = current_buffer; Vwrite_region_annotations_so_far = annotations; - res = call3 (Qformat_annotate_function, Fcar (p), start, end); + res = call4 (Qformat_annotate_function, Fcar (p), start, end, + original_buffer); if (current_buffer != given_buffer) { start = BEGV; -- 2.39.2