mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

(build_annotations): Remember original buffer that the

Browse Source 
region came from; pass this to `format-annotate-function'.
This commit is contained in:
Richard M. Stallman 1996-09-01 20:44:46 +00:00
parent 75a209d4bc
commit 0a20b6841d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/fileio.c
View File

@ -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;