# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 784995354 0
# Node ID c5c2a86432a4599235de0093030029e46b62f7e9
# Parent  2869e501c2dea1a04783049611bbfabe2aa15acd
(Fopen_dribble_file): Call fclose only when dribble is non zero.

diff -r 2869e501c2de -r c5c2a86432a4 src/keyboard.c
--- a/src/keyboard.c	Wed Nov 16 13:00:49 1994 +0000
+++ b/src/keyboard.c	Wed Nov 16 14:15:54 1994 +0000
@@ -5575,8 +5575,11 @@
 {
   if (NILP (file))
     {
-      fclose (dribble);
-      dribble = 0;
+      if (dribble)
+	{
+	  fclose (dribble);
+	  dribble = 0;
+	}
     }
   else
     {