(Fother_buffer): Don't call Fset_buffer_major_mode

for *scratch* if it already existed.
This commit is contained in:
Gerd Moellmann 2000-01-28 17:33:50 +00:00
parent ae1aa776d6
commit dba1a30ab8

View file

@ -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;
}