summaryrefslogtreecommitdiff
path: root/src/frame.c
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2001-10-25 15:44:43 +0000
committerGerd Moellmann <gerd@gnu.org>2001-10-25 15:44:43 +0000
commit75700ff269c43abe152919d6d611a0585967b802 (patch)
tree14e1756c9053a76c158330d44b95589fe091742f /src/frame.c
parent2726b68bac279a726bd152f519433e71a9f2e4cf (diff)
downloademacs-75700ff269c43abe152919d6d611a0585967b802.tar.gz
(Fframe_parameter): Fix a bug whereby some
``artificial'' frame parameters, like `minibuffer' were not obtained by calling Fframe_parameters.
Diffstat (limited to 'src/frame.c')
-rw-r--r--src/frame.c15
1 files changed, 8 insertions, 7 deletions
diff --git a/src/frame.c b/src/frame.c
index 52424456a2c..8720d7a3ae9 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -2085,7 +2085,8 @@ If FRAME is nil, describe the currently selected frame. */)
else if (EQ (parameter, Qdisplay) && FRAME_X_P (f))
value = XCAR (FRAME_X_DISPLAY_INFO (f)->name_list_element);
#endif /* HAVE_X_WINDOWS */
- else
+ else if (EQ (parameter, Qbackground_color)
+ || EQ (parameter, Qforeground_color))
{
value = Fassq (parameter, f->param_alist);
if (CONSP (value))
@@ -2120,13 +2121,13 @@ If FRAME is nil, describe the currently selected frame. */)
}
}
}
- else if (EQ (parameter, Qdisplay_type)
- || EQ (parameter, Qbackground_mode))
- /* Avoid consing in frequent cases. */
- value = Qnil;
- else
- value = Fcdr (Fassq (parameter, Fframe_parameters (frame)));
}
+ else if (EQ (parameter, Qdisplay_type)
+ || EQ (parameter, Qbackground_mode))
+ /* Avoid consing in frequent cases. */
+ value = Fcdr (Fassq (parameter, f->param_alist));
+ else
+ value = Fcdr (Fassq (parameter, Fframe_parameters (frame)));
}
return value;