From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 25 Oct 2001 15:45:34 +0000 (+0000)
Subject: (Fframe_parameter): Fix a bug whereby some
X-Git-Tag: emacs-21.2~454
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8a43d90025b323d918c4f1e523daff9db80cab2;p=emacs.git

(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 c398e033825..58c1afa08ce 100644
--- 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 818402bdade..cd4d52df67d 100644
--- 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;