From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 1 Sep 1996 20:44:46 +0000 (+0000)
Subject: (build_annotations): Remember original buffer that the
X-Git-Tag: emacs-20.1~3900
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a20b6841d0534ff4777d5429b657a58047e139b;p=emacs.git

(build_annotations): Remember original buffer that the
region came from; pass this to `format-annotate-function'.
---

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;