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

1 files changed, 9 insertions, 2 deletions

diff --git a/src/frame.c b/src/frame.c
index 31b9115352f..60b462933b3 100644
--- 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.  */