(make_terminal_frame): Use Emacs, Emacs-2, ... as name.

diff --git a/src/frame.c b/src/frame.c
index 31b9115352f9c30717da52dc2a6fd77aaab84d6d..60b462933b3141723a44ced734eb91a7506d0ecd 100644 (file)
--- a/src/frame.c
+++ b/src/frame.c
@@ -353,9 +353,16 @@ make_terminal_frame ()
   Vframe_list = Fcons (frame, Vframe_list);
 
   terminal_frame_count++;
-  sprintf (name, "terminal-%d", terminal_frame_count);
+  if (terminal_frame_count == 1)
+    {
+      f->name = build_string ("Emacs");
+    }
+  else
+    {
+      sprintf (name, "Emacs-%d", terminal_frame_count);
+      f->name = build_string (name);
+    }
 
-  f->name = build_string (name);
   f->visible = 1;              /* FRAME_SET_VISIBLE wd set frame_garbaged. */
   f->async_visible = 1;                /* Don't let visible be cleared later. */
   f->display.nothing = 1;      /* Nonzero means frame isn't deleted.  */