]> code.delx.au - gnu-emacs/blobdiff - src/dosfns.c
Add comment for 2014-03-10T10:31:13Z!rudalics@gmx.at and 2014-03-10T18:53:39Z!rudalic...
[gnu-emacs] / src / dosfns.c
index 3c649f4d534db94c0b9dbe0cc6b0f19c8ceeb226..071d73ea16ec249d08322f2f56e781f7b3256faf 100644 (file)
@@ -1,6 +1,7 @@
 /* MS-DOS specific Lisp utilities.  Coded by Manabu Higashida, 1991.
    Major changes May-July 1993 Morten Welinder (only 10% original code left)
-   Copyright (C) 1991, 1993, 1996-1998, 2001-2012 Free Software Foundation, Inc.
+   Copyright (C) 1991, 1993, 1996-1998, 2001-2014 Free Software
+   Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -471,7 +472,7 @@ x_set_title (struct frame *f, Lisp_Object name)
   if (EQ (name, f->title))
     return;
 
-  update_mode_lines = 1;
+  update_mode_lines = 13;
 
   fset_title (f, name);
 
@@ -480,9 +481,9 @@ x_set_title (struct frame *f, Lisp_Object name)
 
   if (FRAME_MSDOS_P (f))
     {
-      BLOCK_INPUT;
+      block_input ();
       w95_set_virtual_machine_title (SDATA (name));
-      UNBLOCK_INPUT;
+      unblock_input ();
     }
 }
 #endif /* !HAVE_X_WINDOWS */