Commit 67d853e6 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(Fframe_parameter): Handle `name' specially.

parent 0da3ecef
...@@ -2103,6 +2103,10 @@ If FRAME is nil, describe the currently selected frame.") ...@@ -2103,6 +2103,10 @@ If FRAME is nil, describe the currently selected frame.")
value = Qnil; value = Qnil;
if (FRAME_LIVE_P (f)) if (FRAME_LIVE_P (f))
{
if (EQ (parameter, Qname))
value = f->name;
else
{ {
value = Fassq (parameter, f->param_alist); value = Fassq (parameter, f->param_alist);
if (CONSP (value)) if (CONSP (value))
...@@ -2113,6 +2117,7 @@ If FRAME is nil, describe the currently selected frame.") ...@@ -2113,6 +2117,7 @@ If FRAME is nil, describe the currently selected frame.")
else else
value = Fcdr (Fassq (parameter, Fframe_parameters (frame))); value = Fcdr (Fassq (parameter, Fframe_parameters (frame)));
} }
}
return value; return value;
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment