# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 794463323 0
# Node ID 3aea65d9eb68d0d82acec500ffe885483ebcae0f
# Parent  4d587fff2aa05783e7735d651428108fbbc699a2
(Fpop_to_buffer): Call Fset_buffer_major_mode if we create a buffer.

diff -r 4d587fff2aa0 -r 3aea65d9eb68 src/buffer.c
--- a/src/buffer.c	Fri Mar 03 10:32:07 1995 +0000
+++ b/src/buffer.c	Mon Mar 06 04:15:23 1995 +0000
@@ -1146,7 +1146,14 @@
   if (NILP (bufname))
     buf = Fother_buffer (Fcurrent_buffer (), Qnil);
   else
-    buf = Fget_buffer_create (bufname);
+    {
+      buf = Fget_buffer (bufname);
+      if (NILP (buf))
+	{
+	  buf = Fget_buffer_create (bufname);
+	  Fset_buffer_major_mode (buf);
+	}
+    }
   Fset_buffer (buf);
   record_buffer (buf);
   Fselect_window (Fdisplay_buffer (buf, other));