(Fother_buffer): Don't call Fset_buffer_major_mode

for *scratch* if it already existed.

(Fother_buffer): Don't call Fset_buffer_major_mode
for *scratch* if it already existed.
dba1a30a · Gerd Moellmann · ae1aa776 · dba1a30a
Commit dba1a30a authored Jan 28, 2000 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 2 deletions

src/buffer.c src/buffer.c +6 -2

No files found.
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -961,8 +961,12 @@ If BUFFER is omitted or nil, some interesting buffer is returned.")
    }
  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;
 }