From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 19 Jan 1996 22:39:00 +0000 (+0000)
Subject: (Fother_buffer): If we have to create a new buffer, use
X-Git-Tag: emacs-19.34~1634
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=89132f25ac86ea650a198a3cc23bc838ce363b1a;p=emacs.git

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

diff --git a/src/buffer.c b/src/buffer.c
index 891d9eb083f..f4fe95b3927 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -809,6 +809,7 @@ If BUFFER is omitted or nil, some interesting buffer is returned.")
   (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 BUFFER is omitted or nil, some interesting buffer is returned.")
     }
   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,