Mercurial > emacs

diff src/keyboard.c @ 14590:2eb3fcfa26ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 2c5fedd784b2
children 6002d6e3aea3
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");