(Fopen_dribble_file): Call fclose only when dribble is non zero.

diff --git a/src/keyboard.c b/src/keyboard.c
index 2be24b4f007e785b6c068369b4c5e774450c9408..82f09de4f8292d52eaa199b688a2e910a761ca80 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -5575,8 +5575,11 @@ If FILE is nil, close any open dribble file.")
 {
   if (NILP (file))
     {
-      fclose (dribble);
-      dribble = 0;
+      if (dribble)
+       {
+         fclose (dribble);
+         dribble = 0;
+       }
     }
   else
     {