diff options
author | Richard M. Stallman <[email protected]> | 1996-09-01 20:44:46 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1996-09-01 20:44:46 +0000 |
commit | 0a20b6841d0534ff4777d5429b657a58047e139b (patch) | |
tree | 1770fc3bb0bfb954b383ae5419aca921d2b2a9c6 /src | |
parent | 75a209d4bc0e1b1a0a2f7400bf7aac5a24fca554 (diff) |
(build_annotations): Remember original buffer that the
region came from; pass this to `format-annotate-function'.
Diffstat (limited to 'src')
-rw-r--r-- | src/fileio.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/fileio.c b/src/fileio.c index a9d2b95e09..88fac43923 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; |