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 }