diff options
| author | Dave Love | 2003-05-29 18:36:16 +0000 |
|---|---|---|
| committer | Dave Love | 2003-05-29 18:36:16 +0000 |
| commit | d36b182f570b08cb54ad484741379430fe874a70 (patch) | |
| tree | 444fc9434157cd50faf76a938e3292588746b067 /src/buffer.c | |
| parent | 2794f7ab8573d31ecd7623103bcb2ebd3a8cbe8f (diff) | |
| download | emacs-d36b182f570b08cb54ad484741379430fe874a70.tar.gz emacs-d36b182f570b08cb54ad484741379430fe874a70.zip | |
Comment.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/buffer.c b/src/buffer.c index 6ec06d84c30..09542fc43a6 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -420,10 +420,11 @@ The value is never nil. */) | |||
| 420 | XSETBUFFER (buf, b); | 420 | XSETBUFFER (buf, b); |
| 421 | Vbuffer_alist = nconc2 (Vbuffer_alist, Fcons (Fcons (name, buf), Qnil)); | 421 | Vbuffer_alist = nconc2 (Vbuffer_alist, Fcons (Fcons (name, buf), Qnil)); |
| 422 | 422 | ||
| 423 | /* Fixme: Protect against errors, which would trigger infinite | 423 | /* An error in calling the function here (should someone redfine it) |
| 424 | regress? */ | 424 | can lead to infinite regress until you run out of stack. rms |
| 425 | says that's not worth protecting against. */ | ||
| 425 | if (!NILP (Ffboundp (Qucs_set_table_for_input))) | 426 | if (!NILP (Ffboundp (Qucs_set_table_for_input))) |
| 426 | /* buff is on buffer-alist, so no gcpro */ | 427 | /* buf is on buffer-alist, so no gcpro. */ |
| 427 | call1 (Qucs_set_table_for_input, buf); | 428 | call1 (Qucs_set_table_for_input, buf); |
| 428 | 429 | ||
| 429 | return buf; | 430 | return buf; |