Mercurial > emacs
changeset 14590:2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
opening new file.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 17 Feb 1996 02:28:26 +0000 |
| parents | c1ca33c85944 |
| children | 6002d6e3aea3 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 4 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Sat Feb 17 02:23:13 1996 +0000 +++ b/src/keyboard.c Sat Feb 17 02:28:26 1996 +0000 @@ -6881,15 +6881,12 @@ (file) Lisp_Object file; { - if (NILP (file)) + if (dribble) { - if (dribble) - { - fclose (dribble); - dribble = 0; - } + fclose (dribble); + dribble = 0; } - else + if (!NILP (file)) { file = Fexpand_file_name (file, Qnil); dribble = fopen (XSTRING (file)->data, "w");