# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 824524351 0
# Node ID 6002d6e3aea344b5071a277aecfb43fbadb7ca7e
# Parent  2eb3fcfa26adb5f88dafcfcda63403fe99b0a209
(Fopen_dribble_file): Check for failure.

diff -r 2eb3fcfa26ad -r 6002d6e3aea3 src/keyboard.c
--- a/src/keyboard.c	Sat Feb 17 02:28:26 1996 +0000
+++ b/src/keyboard.c	Sat Feb 17 02:32:31 1996 +0000
@@ -6890,6 +6890,8 @@
     {
       file = Fexpand_file_name (file, Qnil);
       dribble = fopen (XSTRING (file)->data, "w");
+      if (dribble == 0)
+	report_file_error ("Opening dribble", Fcons (file, Qnil));
     }
   return Qnil;
 }