Some gdb_exception{,error,quit} tweaks

[deliverable/binutils-gdb.git] / readline / histfile.c

diff --git a/readline/histfile.c b/readline/histfile.c
index 30a618247f1ec8a7be1c9202ae84224c7e8d5d5e..56cbbf0498cea34540a2f3eb58a3ee71ec8d2617 100644 (file)
--- a/readline/histfile.c
+++ b/readline/histfile.c
@@ -123,6 +123,10 @@ history_filename (filename)
     return (return_val);
   
   home = sh_get_env_value ("HOME");
+#ifdef _WIN32
+  if (!home)
+    home = sh_get_env_value ("APPDATA");
+#endif
 
   if (home == 0)
     {
@@ -403,7 +407,8 @@ history_truncate_file (fname, lines)
      truncate to. */
   if (bp > buffer && ((file = open (filename, O_WRONLY|O_TRUNC|O_BINARY, 0600)) != -1))
     {
-      write (file, bp, chars_read - (bp - buffer));
+      if (write (file, bp, chars_read - (bp - buffer)) < 0)
+       rv = errno;
 
 #if defined (__BEOS__)
       /* BeOS ignores O_TRUNC. */