diff options
author | Karl Heuer <[email protected]> | 1996-02-17 02:32:31 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1996-02-17 02:32:31 +0000 |
commit | ab6ca1de2241ce6d2ee3ed3e1d01629d61d148e5 (patch) | |
tree | 670eeef0a29038d0caadbd8530de264a8bcb30c9 | |
parent | 6cb52deffb02eb6501e9186d0802746fe3d6b965 (diff) |
(Fopen_dribble_file): Check for failure.
-rw-r--r-- | src/keyboard.c | 2 |
1 files changed, 2 insertions, 0 deletions
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; } |