Mercurial > emacs
comparison src/buffer.c @ 10916:3aea65d9eb68
(Fpop_to_buffer): Call Fset_buffer_major_mode if we create a buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 06 Mar 1995 04:15:23 +0000 |
| parents | dea8f022819d |
| children | b53b84b6f46d |
comparison
equal
deleted
inserted
replaced
| 10915:4d587fff2aa0 | 10916:3aea65d9eb68 |
|---|---|
| 1144 { | 1144 { |
| 1145 register Lisp_Object buf; | 1145 register Lisp_Object buf; |
| 1146 if (NILP (bufname)) | 1146 if (NILP (bufname)) |
| 1147 buf = Fother_buffer (Fcurrent_buffer (), Qnil); | 1147 buf = Fother_buffer (Fcurrent_buffer (), Qnil); |
| 1148 else | 1148 else |
| 1149 buf = Fget_buffer_create (bufname); | 1149 { |
| 1150 buf = Fget_buffer (bufname); | |
| 1151 if (NILP (buf)) | |
| 1152 { | |
| 1153 buf = Fget_buffer_create (bufname); | |
| 1154 Fset_buffer_major_mode (buf); | |
| 1155 } | |
| 1156 } | |
| 1150 Fset_buffer (buf); | 1157 Fset_buffer (buf); |
| 1151 record_buffer (buf); | 1158 record_buffer (buf); |
| 1152 Fselect_window (Fdisplay_buffer (buf, other)); | 1159 Fselect_window (Fdisplay_buffer (buf, other)); |
| 1153 return buf; | 1160 return buf; |
| 1154 } | 1161 } |
