(build_annotations): Remember original buffer that the

region came from; pass this to `format-annotate-function'.

1 files changed, 5 insertions, 1 deletions

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;