From ab6ca1de2241ce6d2ee3ed3e1d01629d61d148e5 Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 17 Feb 1996 02:32:31 +0000
Subject: (Fopen_dribble_file): Check for failure.

---
 src/keyboard.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/keyboard.c b/src/keyboard.c
index 209bf9dc7c..5787276e55 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -6890,6 +6890,8 @@ If FILE is nil, close any open dribble file.")
     {
       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;
 }
-- 
cgit v1.2.3