Merged in changes from CVS HEAD

Patches applied:

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-51
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-52
   Update from CVS


git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-62

2 files changed, 32 insertions, 3 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 4fba5e166b3..a15f25fbde8 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,16 @@
+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.
+        (kbd_buffer_store_event, clear_event, Fdiscard_input)
+        (stuff_buffered_input, init_keyboard, syms_of_keyboard):
+        Don't initialize and/or maintain the variable any more.  It was made
+        redundant by my commit of 2003-06-15.
+
         * lisp.h [USE_LSB_TAG && !DECL_ALIGN]: Signal an error.
 
 2004-01-21  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
@@ -630,6 +641,13 @@
 
 2003-11-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * alloc.c (make_float, Fcons): Clear the markbit at init time.
+        (make_float, Fcons, Fmake_symbol, allocate_misc): Move the increment
+        of block_index outside of the macro call.
+        (Fgarbage_collect): Remove null code.
+
+        * m/amdx86-64.h: Don't redefine XPNTR.
+
         * keyboard.c (parse_modifiers, apply_modifiers): Use INTMASK instead
         of VALMASK.
 
diff --git a/src/fns.c b/src/fns.c
index ff40c706edd..6383e09302b 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -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);