From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 17 Feb 1996 02:28:26 +0000 (+0000)
Subject: (Fopen_dribble_file): Close dribble file before
X-Git-Tag: emacs-19.34~1270
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6cb52deffb02eb6501e9186d0802746fe3d6b965;p=emacs.git

(Fopen_dribble_file): Close dribble file before
opening new file.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index af1fb97d1a3..209bf9dc7c9 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -6881,15 +6881,12 @@ If FILE is nil, close any open dribble file.")
   (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");