diff options
author | Karl Heuer <kwzh@gnu.org> | 1996-01-19 22:39:00 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1996-01-19 22:39:00 +0000 |
commit | b3ca73623a0796c44c709f145c05af6a15d44ac4 (patch) | |
tree | f981191cf6e57f2ecb9dcb7815261c6deaa93d04 | |
parent | 7b2185d9ef271fb11772b7edccbee30df367bcc8 (diff) | |
download | emacs-b3ca73623a0796c44c709f145c05af6a15d44ac4.tar.gz |
(Fother_buffer): If we have to create a new buffer, use
default-major-mode.
-rw-r--r-- | src/buffer.c | 5 |
1 files changed, 4 insertions, 1 deletions
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, |