Mercurial > emacs
diff src/frame.c @ 31442:cb166d3ac8e7
(Fframe_parameter): Handle `name' specially.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 07 Sep 2000 10:39:35 +0000 |
| parents | db831ffcd565 |
| children | 70b366918608 |
line wrap: on
line diff
--- 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;
