mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

* buffer.c (Fkill_buffer): When killing an indirect buffer,

Browse source 
re-attach intervals to its base buffer (Bug#16502).
* intervals.c (set_interval_object): Move from here...
* intervals.h (set_interval_object): ... to here.  Fix comments.
This commit is contained in:
Dmitry Antipov 2014-01-21 06:28:57 +04:00
parent 8750379121
commit 5004c3bfbb
4 changed files with 25 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/ChangeLog
View file

@ -1,3 +1,10 @@
2014-01-21 Dmitry Antipov <dmantipov@yandex.ru>
* buffer.c (Fkill_buffer): When killing an indirect buffer,
re-attach intervals to its base buffer (Bug#16502).
* intervals.c (set_interval_object): Move from here...
* intervals.h (set_interval_object): ... to here. Fix comments.
2014-01-20 Paul Eggert <eggert@cs.ucla.edu>
Avoid undefined behavior by initializing buffer redisplay bit.

9
src/buffer.c
View file

@ -1868,6 +1868,7 @@ cleaning up all windows currently displaying the buffer to be killed. */)
if (b->base_buffer)
{
INTERVAL i;
/* Unchain all markers that belong to this indirect buffer.
Don't unchain the markers that belong to the base buffer
or its other indirect buffers. */
@ -1882,6 +1883,14 @@ cleaning up all windows currently displaying the buffer to be killed. */)
else
mp = &m->next;
}
/* Intervals should be owned by the base buffer (Bug#16502). */
i = buffer_intervals (b);
if (i)
{
Lisp_Object owner;
XSETBUFFER (owner, b->base_buffer);
set_interval_object (i, owner);
}
}
else
{

11
src/intervals.c
View file

@ -60,16 +60,7 @@ static INTERVAL reproduce_tree (INTERVAL, INTERVAL);
/* Utility functions for intervals. */
/* Use these functions to set Lisp_Object
or pointer slots of struct interval. */
static void
set_interval_object (INTERVAL i, Lisp_Object obj)
{
eassert (BUFFERP (obj) || STRINGP (obj));
i->up_obj = 1;
i->up.obj = obj;
}
/* Use these functions to set pointer slots of struct interval. */
static void
set_interval_left (INTERVAL i, INTERVAL left)

8
src/intervals.h
View file

@ -133,6 +133,14 @@ struct interval
/* Use these functions to set Lisp_Object
or pointer slots of struct interval. */
INLINE void
set_interval_object (INTERVAL i, Lisp_Object obj)
{
eassert (BUFFERP (obj) || STRINGP (obj));
i->up_obj = 1;
i->up.obj = obj;
}
INLINE void
set_interval_parent (INTERVAL i, INTERVAL parent)
{