Mercurial > emacs

changeset 27480:90165d2202f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fother_buffer): Don't call Fset_buffer_major_mode for *scratch* if it already existed.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 28 Jan 2000 17:33:50 +0000
parents 2b5d9f6cdc24
children 62a9d12e8637
files src/buffer.c
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/buffer.c	Fri Jan 28 17:31:00 2000 +0000
+++ b/src/buffer.c	Fri Jan 28 17:33:50 2000 +0000
@@ -961,8 +961,12 @@
     }
   if (!NILP (notsogood))
     return notsogood;
-  buf = Fget_buffer_create (build_string ("*scratch*"));
-  Fset_buffer_major_mode (buf);
+  buf = Fget_buffer (build_string ("*scratch*"));
+  if (NILP (buf))
+    {
+      buf = Fget_buffer_create (build_string ("*scratch*"));
+      Fset_buffer_major_mode (buf);
+    }
   return buf;
 }