From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 14 Mar 1995 18:39:58 +0000 (+0000)
Subject: (Fdisplay_buffer): Fix prev change--return selected window.
X-Git-Tag: emacs-19.34~4855
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c63dc4a2d8ee6f00df69bd84088cdaffb3308fb9;p=emacs.git

(Fdisplay_buffer): Fix prev change--return selected window.
---

diff --git a/src/window.c b/src/window.c
index f1f50813054..ec561e55223 100644
--- a/src/window.c
+++ b/src/window.c
@@ -1888,23 +1888,35 @@ Returns the window displaying BUFFER.")
     {
       tem = Fmember (XBUFFER (buffer)->name, Vsame_window_buffer_names);
       if (!NILP (tem))
-	return Fswitch_to_buffer (buffer, Qnil);
+	{
+	  Fswitch_to_buffer (buffer, Qnil);
+	  return selected_window;
+	}
 
       tem = Fassoc (XBUFFER (buffer)->name, Vsame_window_buffer_names);
       if (!NILP (tem))
-	return Fswitch_to_buffer (buffer, Qnil);
+	{
+	  Fswitch_to_buffer (buffer, Qnil);
+	  return selected_window;
+	}
 
       for (tem = Vsame_window_regexps; CONSP (tem); tem = XCONS (tem)->cdr)
 	{
 	  Lisp_Object car = XCONS (tem)->car;
 	  if (STRINGP (car)
 	      && fast_string_match (car, XBUFFER (buffer)->name) >= 0)
-	    return Fswitch_to_buffer (buffer, Qnil);
+	    {
+	      Fswitch_to_buffer (buffer, Qnil);
+	      return selected_window;
+	    }
 	  else if (CONSP (car)
 		   && STRINGP (XCONS (car)->car)
 		   && fast_string_match (XCONS (car)->car,
 					 XBUFFER (buffer)->name) >= 0)
-	    return Fswitch_to_buffer (buffer, Qnil);
+	    {
+	      Fswitch_to_buffer (buffer, Qnil);
+	      return selected_window;
+	    }
 	}
     }