# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822091140 0
# Node ID ad275aca6fc57238dceab1497c9f99c9237a6126
# Parent  ec298b8bee29f0d1df1b2f803bfaca0a52ae768c
(Fother_buffer): If we have to create a new buffer, use
default-major-mode.

diff -r ec298b8bee29 -r ad275aca6fc5 src/buffer.c
--- a/src/buffer.c	Fri Jan 19 11:24:34 1996 +0000
+++ b/src/buffer.c	Fri Jan 19 22:39:00 1996 +0000
@@ -809,6 +809,7 @@
   (buffer, visible_ok)
      register Lisp_Object buffer, visible_ok;
 {
+  Lisp_Object Fset_buffer_major_mode ();
   register Lisp_Object tail, buf, notsogood, tem;
   notsogood = Qnil;
 
@@ -842,7 +843,9 @@
     }
   if (!NILP (notsogood))
     return notsogood;
-  return Fget_buffer_create (build_string ("*scratch*"));
+  buf = Fget_buffer_create (build_string ("*scratch*"));
+  Fset_buffer_major_mode (buf);
+  return buf;
 }
 
 DEFUN ("buffer-disable-undo", Fbuffer_disable_undo, Sbuffer_disable_undo,