Mercurial > emacs
comparison src/buffer.c @ 27480:90165d2202f9
(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 | 520f982f3a9a |
| children | e272d652619a |
comparison
equal
deleted
inserted
replaced
| 27479:2b5d9f6cdc24 | 27480:90165d2202f9 |
|---|---|
| 959 if (NILP (notsogood)) | 959 if (NILP (notsogood)) |
| 960 notsogood = buf; | 960 notsogood = buf; |
| 961 } | 961 } |
| 962 if (!NILP (notsogood)) | 962 if (!NILP (notsogood)) |
| 963 return notsogood; | 963 return notsogood; |
| 964 buf = Fget_buffer_create (build_string ("*scratch*")); | 964 buf = Fget_buffer (build_string ("*scratch*")); |
| 965 Fset_buffer_major_mode (buf); | 965 if (NILP (buf)) |
| 966 { | |
| 967 buf = Fget_buffer_create (build_string ("*scratch*")); | |
| 968 Fset_buffer_major_mode (buf); | |
| 969 } | |
| 966 return buf; | 970 return buf; |
| 967 } | 971 } |
| 968 | 972 |
| 969 DEFUN ("buffer-disable-undo", Fbuffer_disable_undo, Sbuffer_disable_undo, | 973 DEFUN ("buffer-disable-undo", Fbuffer_disable_undo, Sbuffer_disable_undo, |
| 970 0, 1, "", | 974 0, 1, "", |