Mercurial > emacs
comparison src/buffer.c @ 48776:67a496befc04
(Fget_buffer_create): Call Qucs_set_table_for_input as the last thing.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 09 Dec 2002 20:24:32 +0000 |
| parents | 2a9a1d761581 |
| children | 3bdd36228f48 |
comparison
equal
deleted
inserted
replaced
| 48775:25ef28e528f4 | 48776:67a496befc04 |
|---|---|
| 409 b->undo_list = Qt; | 409 b->undo_list = Qt; |
| 410 | 410 |
| 411 reset_buffer (b); | 411 reset_buffer (b); |
| 412 reset_buffer_local_variables (b, 1); | 412 reset_buffer_local_variables (b, 1); |
| 413 | 413 |
| 414 b->mark = Fmake_marker (); | |
| 415 BUF_MARKERS (b) = Qnil; | |
| 416 b->name = name; | |
| 417 | |
| 414 /* Put this in the alist of all live buffers. */ | 418 /* Put this in the alist of all live buffers. */ |
| 415 XSETBUFFER (buf, b); | 419 XSETBUFFER (buf, b); |
| 416 Vbuffer_alist = nconc2 (Vbuffer_alist, Fcons (Fcons (name, buf), Qnil)); | 420 Vbuffer_alist = nconc2 (Vbuffer_alist, Fcons (Fcons (name, buf), Qnil)); |
| 417 | 421 |
| 418 /* Fixme: Protect against errors, which would trigger infinite | 422 /* Fixme: Protect against errors, which would trigger infinite |
| 419 regress? */ | 423 regress? */ |
| 420 if (!NILP (Ffboundp (Qucs_set_table_for_input))) | 424 if (!NILP (Ffboundp (Qucs_set_table_for_input))) |
| 421 /* buff is on buffer-alist, so no gcpro */ | 425 /* buff is on buffer-alist, so no gcpro */ |
| 422 call1 (Qucs_set_table_for_input, buf); | 426 call1 (Qucs_set_table_for_input, buf); |
| 423 | 427 |
| 424 b->mark = Fmake_marker (); | |
| 425 BUF_MARKERS (b) = Qnil; | |
| 426 b->name = name; | |
| 427 return buf; | 428 return buf; |
| 428 } | 429 } |
| 429 | 430 |
| 430 | 431 |
| 431 /* Return a list of overlays which is a copy of the overlay list | 432 /* Return a list of overlays which is a copy of the overlay list |