diff src/buffer.c @ 14226:ad275aca6fc5

(Fother_buffer): If we have to create a new buffer, use default-major-mode.

--- 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,