# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797500816 0
# Node ID 74046c14a0adab0bffc16df48d8cb487196b088a
# Parent  17f7be3e24438601009f30bcab4eeb420314084e
(make_terminal_frame): Use Emacs, Emacs-2, ... as name.

diff -r 17f7be3e2443 -r 74046c14a0ad src/frame.c
--- a/src/frame.c	Mon Apr 10 07:57:44 1995 +0000
+++ b/src/frame.c	Mon Apr 10 08:00:16 1995 +0000
@@ -353,9 +353,16 @@
   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.  */