mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(Fmd5): If OBJECT is a buffer different from the current

Browse Source 
one, set buffer to OBJECT temporarily.
This commit is contained in:
Kenichi Handa 2004-01-23 00:14:48 +00:00
parent fe722d76d3
commit fe905025d0
2 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ChangeLog
View File

@ -1,3 +1,8 @@
2004-01-23 Kenichi Handa <handa@m17n.org>
* fns.c (Fmd5): If OBJECT is a buffer different from the current
one, set buffer to OBJECT temporarily.
2004-01-21 Stefan Monnier <monnier@iro.umontreal.ca>
* keyboard.c (kbd_buffer_gcpro): Remove.

17
src/fns.c
View File

@ -5454,12 +5454,18 @@ guesswork fails. Normally, an error is signaled in such case. */)
}
else
{
struct buffer *prev = current_buffer;
record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
CHECK_BUFFER (object);
bp = XBUFFER (object);
if (bp != current_buffer)
set_buffer_internal (bp);
if (NILP (start))
b = BUF_BEGV (bp);
b = BEGV;
else
{
CHECK_NUMBER_COERCE_MARKER (start);
@ -5467,7 +5473,7 @@ guesswork fails. Normally, an error is signaled in such case. */)
}
if (NILP (end))
e = BUF_ZV (bp);
e = ZV;
else
{
CHECK_NUMBER_COERCE_MARKER (end);
@ -5477,7 +5483,7 @@ guesswork fails. Normally, an error is signaled in such case. */)
if (b > e)
temp = b, b = e, e = temp;
if (!(BUF_BEGV (bp) <= b && e <= BUF_ZV (bp)))
if (!(BEGV <= b && e <= ZV))
args_out_of_range (start, end);
if (NILP (coding_system))
@ -5544,6 +5550,11 @@ guesswork fails. Normally, an error is signaled in such case. */)
}
object = make_buffer_string (b, e, 0);
if (prev != current_buffer)
set_buffer_internal (prev);
/* Discard the unwind protect for recovering the current
buffer. */
specpdl_ptr--;
if (STRING_MULTIBYTE (object))
object = code_convert_string1 (object, coding_system, Qnil, 1);