mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-16 17:19:41 +00:00
* fileio.c (Finsert_file_contents):
* lread.c (Feval_buffer): Use BUF_TEMP_SET_PT. * buffer.h (BUF_SET_PT): Remove. set_point_both doesn't work right when buffer != current_buffer anyway.
This commit is contained in:
parent
acab783e7f
commit
bf1c0f2730
@ -1,3 +1,10 @@
|
||||
2008-03-20 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* fileio.c (Finsert_file_contents):
|
||||
* lread.c (Feval_buffer): Use BUF_TEMP_SET_PT.
|
||||
* buffer.h (BUF_SET_PT): Remove. set_point_both doesn't work right
|
||||
when buffer != current_buffer anyway.
|
||||
|
||||
2008-03-20 Andreas Schwab <schwab@suse.de>
|
||||
|
||||
* callint.c (Fcall_interactively) [case 'B']: Use other-buffer
|
||||
|
@ -216,8 +216,6 @@ Boston, MA 02110-1301, USA. */
|
||||
#define TEMP_SET_PT_BOTH(position, byte) \
|
||||
(temp_set_point_both (current_buffer, (position), (byte)))
|
||||
|
||||
#define BUF_SET_PT(buffer, position) \
|
||||
(set_point ((buffer), (position)))
|
||||
#define BUF_TEMP_SET_PT(buffer, position) \
|
||||
(temp_set_point ((buffer), (position)))
|
||||
|
||||
|
@ -4237,8 +4237,8 @@ variable `last-coding-system-used' to the coding system actually used. */)
|
||||
|
||||
how_much += this;
|
||||
|
||||
BUF_SET_PT (XBUFFER (conversion_buffer),
|
||||
BUF_Z (XBUFFER (conversion_buffer)));
|
||||
BUF_TEMP_SET_PT (XBUFFER (conversion_buffer),
|
||||
BUF_Z (XBUFFER (conversion_buffer)));
|
||||
decode_coding_c_string (&coding, read_buf, unprocessed + this,
|
||||
conversion_buffer);
|
||||
unprocessed = coding.carryover_bytes;
|
||||
|
@ -1850,7 +1850,7 @@ This function preserves the position of point. */)
|
||||
specbind (Qeval_buffer_list, Fcons (buf, Veval_buffer_list));
|
||||
specbind (Qstandard_output, tem);
|
||||
record_unwind_protect (save_excursion_restore, save_excursion_save ());
|
||||
BUF_SET_PT (XBUFFER (buf), BUF_BEGV (XBUFFER (buf)));
|
||||
BUF_TEMP_SET_PT (XBUFFER (buf), BUF_BEGV (XBUFFER (buf)));
|
||||
readevalloop (buf, 0, filename, Feval,
|
||||
!NILP (printflag), unibyte, Qnil, Qnil, Qnil);
|
||||
unbind_to (count, Qnil);
|
||||
|
Loading…
Reference in New Issue
Block a user