mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

(buf_charpos_to_bytepos, buf_bytepos_to_charpos):

Browse source 
When calling set_marker_both, pass the right buffer.
This commit is contained in:
Karl Heuer 1998-04-13 18:56:44 +00:00
parent 9fdae274dd
commit b8f477cbd2
1 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/marker.c
View file

@ -199,9 +199,10 @@ buf_charpos_to_bytepos (b, charpos)
It will last until the next GC. */
if (record)
{
Lisp_Object marker;
Lisp_Object marker, buffer;
marker = Fmake_marker ();
set_marker_both (marker, Qnil, best_below, best_below_byte);
XSETBUFFER (buffer, b);
set_marker_both (marker, buffer, best_below, best_below_byte);
}
if (byte_debug_flag)
@ -229,9 +230,10 @@ buf_charpos_to_bytepos (b, charpos)
It will last until the next GC. */
if (record)
{
Lisp_Object marker;
Lisp_Object marker, buffer;
marker = Fmake_marker ();
set_marker_both (marker, Qnil, best_above, best_above_byte);
XSETBUFFER (buffer, b);
set_marker_both (marker, buffer, best_above, best_above_byte);
}
if (byte_debug_flag)
@ -365,9 +367,10 @@ buf_bytepos_to_charpos (b, bytepos)
It will last until the next GC. */
if (record)
{
Lisp_Object marker;
Lisp_Object marker, buffer;
marker = Fmake_marker ();
set_marker_both (marker, Qnil, best_below, best_below_byte);
XSETBUFFER (buffer, b);
set_marker_both (marker, buffer, best_below, best_below_byte);
}
if (byte_debug_flag)
@ -395,9 +398,10 @@ buf_bytepos_to_charpos (b, bytepos)
It will last until the next GC. */
if (record)
{
Lisp_Object marker;
Lisp_Object marker, buffer;
marker = Fmake_marker ();
set_marker_both (marker, Qnil, best_above, best_above_byte);
XSETBUFFER (buffer, b);
set_marker_both (marker, buffer, best_above, best_above_byte);
}
if (byte_debug_flag)