# HG changeset patch # User Richard M. Stallman # Date 738737493 0 # Node ID 4d405f172c79c086c08ab6557b2c82844229967f # Parent 4a10e4c34b11b7ae3881a7a8ec7e5a524768893d (reset_buffer): Clear mark_active field here. (reset_buffer_local_variables): Not here. (Fswitch_to_buffer, Fpop_to_buffer): Return the buffer. (Fmove_overlay): Fix data types in last change. diff -r 4a10e4c34b11 -r 4d405f172c79 src/buffer.c --- a/src/buffer.c Sun May 30 04:49:24 1993 +0000 +++ b/src/buffer.c Sun May 30 04:51:33 1993 +0000 @@ -338,7 +338,7 @@ until an unused name is found, and then return that name.\n\ Optional second argument ignore specifies a name that is okay to use\n\ \(if it is in the sequence to be tried)\n\ -even if a buffer with that name exists. +even if a buffer with that name exists.") (name, ignore) register Lisp_Object name, ignore; { @@ -831,7 +831,7 @@ : selected_window, buf); - return Qnil; + return buf; } DEFUN ("pop-to-buffer", Fpop_to_buffer, Spop_to_buffer, 1, 2, 0, @@ -851,7 +851,7 @@ Fset_buffer (buf); record_buffer (buf); Fselect_window (Fdisplay_buffer (buf, other)); - return Qnil; + return buf; } DEFUN ("current-buffer", Fcurrent_buffer, Scurrent_buffer, 0, 0, 0, @@ -1573,7 +1573,7 @@ b = XBUFFER (buffer); /* If the overlay has changed buffers, do a thorough redisplay. */ - if (! EQ (buffer, XMARKER (OVERLAY_START (overlay))->buffer)) + if (b != XMARKER (OVERLAY_START (overlay))->buffer) windows_or_buffers_changed = 1; else /* Redisplay the area the overlay has just left, or just enclosed. */