Mercurial > emacs

changeset 14226:ad275aca6fc5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fother_buffer): If we have to create a new buffer, use default-major-mode.
author Karl Heuer <kwzh@gnu.org>
date Fri, 19 Jan 1996 22:39:00 +0000
parents ec298b8bee29
children 04dba88947bc
files src/buffer.c
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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,