From 67d853e60908e7f41a056b7efa851f6800feda36 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 7 Sep 2000 10:39:35 +0000 Subject: (Fframe_parameter): Handle `name' specially. --- src/frame.c | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) (limited to 'src/frame.c') diff --git a/src/frame.c b/src/frame.c index 8462a0c1d6..55435b1180 100644 --- a/src/frame.c +++ b/src/frame.c @@ -2104,14 +2104,19 @@ If FRAME is nil, describe the currently selected frame.") 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; -- cgit v1.2.3