(Fframe_parameter): Fix a bug whereby some

``artificial'' frame parameters, like `minibuffer' were not
obtained by calling Fframe_parameters.

diff --git a/src/ChangeLog b/src/ChangeLog
index c398e033825ed74509782e5b358b53bfe4a5b002..58c1afa08ce66af4d122f24b29b89070d0fe3a9b 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2001-10-25  Gerd Moellmann  <gerd@gnu.org>
 
+       * frame.c (Fframe_parameter): Fix a bug whereby some
+       ``artificial'' frame parameters, like `minibuffer' were not
+       obtained by calling Fframe_parameters.
+
        * xterm.c (show_mouse_face): Clean up.  Recognize overwritten
        cursor differently.
 

diff --git a/src/frame.c b/src/frame.c
index 818402bdadebe366ef6bb63c8022ce807e4f8b4e..cd4d52df67d7220e29454994c4a8bf57ef61d8c0 100644 (file)
--- a/src/frame.c
+++ b/src/frame.c
@@ -2083,7 +2083,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))
@@ -2118,13 +2119,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;