[Emacs-diffs] Changes to emacs/src/dosfns.c,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    08/08/23 16:50:44

Index: dosfns.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/dosfns.c,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -b -r1.50 -r1.51
--- dosfns.c    22 May 2008 14:52:10 -0000      1.50
+++ dosfns.c    23 Aug 2008 16:50:44 -0000      1.51
@@ -29,8 +29,8 @@
 #include "lisp.h"
 #include "buffer.h"
 #include "termchar.h"
-#include "termhooks.h"
 #include "frame.h"
+#include "termhooks.h"
 #include "blockinput.h"
 #include "window.h"
 #include "dosfns.h"
@@ -536,15 +536,27 @@
 void
 dos_cleanup (void)
 {
+  struct tty_display_info *tty;
+
 #ifndef HAVE_X_WINDOWS
   restore_parent_vm_title ();
 #endif
   /* Make sure the termscript file is committed, in case we are
      crashing and some vital info was written there.  */
-  if (termscript)
+  if (FRAMEP (selected_frame))
+    {
+      struct frame *sf = XFRAME (selected_frame);
+
+      if (FRAME_LIVE_P (sf)
+         && (FRAME_MSDOS_P (sf) || FRAME_TERMCAP_P (sf)))
+       {
+         tty = CURTTY ();
+         if (tty->termscript)
     {
-      fflush (termscript);
-      fsync (fileno (termscript));
+             fflush (tty->termscript);
+             fsync (fileno (tty->termscript));
+           }
+       }
     }
 }