# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 968323175 0
# Node ID cb166d3ac8e7c97eb206987a576e1670dc36288e
# Parent  81039e21ffec3501dcde9da4a6c32c24c3812a8e
(Fframe_parameter): Handle `name' specially.

diff -r 81039e21ffec -r cb166d3ac8e7 src/frame.c
--- a/src/frame.c	Thu Sep 07 09:52:42 2000 +0000
+++ b/src/frame.c	Thu Sep 07 10:39:35 2000 +0000
@@ -2104,14 +2104,19 @@
   
   if (FRAME_LIVE_P (f))
     {
-      value = Fassq (parameter, f->param_alist);
-      if (CONSP (value))
-	value = XCDR (value);
-      else if (EQ (parameter, Qdisplay_type))
-	/* Avoid consing in a frequent case.  */
-	value = Qnil;
+      if (EQ (parameter, Qname))
+	value = f->name;
       else
-	value = Fcdr (Fassq (parameter, Fframe_parameters (frame)));
+	{
+	  value = Fassq (parameter, f->param_alist);
+	  if (CONSP (value))
+	    value = XCDR (value);
+	  else if (EQ (parameter, Qdisplay_type))
+	    /* Avoid consing in a frequent case.  */
+	    value = Qnil;
+	  else
+	    value = Fcdr (Fassq (parameter, Fframe_parameters (frame)));
+	}
     }
   
   return value;