* minibuf.c (Fdisplay_completion_list): Pass the proper number of

	arguments to Flength.
	* xmenu.c (list_of_items): Same.

2 files changed, 2 insertions, 2 deletions

diff --git a/src/minibuf.c b/src/minibuf.c
index bc1074c89d0..9b4867f571a 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -1296,7 +1296,7 @@ or may be a list of two strings to be printed as if concatenated.")
               if (XTYPE (Vstandard_output) != Lisp_Buffer)
                 {
                   Lisp_Object tem;
-                  tem = Flength (elt, Qt);
+                  tem = Flength (elt);
                   column += XINT (tem);
                 }
               Fprinc (elt, Qnil);
diff --git a/src/xmenu.c b/src/xmenu.c
index e1c14da2f70..972c4333d38 100644
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -653,7 +653,7 @@ list_of_items (vector, names, pane)  /* get list from emacs and put to vector */
 
   if (XTYPE (pane) != Lisp_Cons) pane = wrong_type_argument (Qlistp, pane);
 
-  i = XFASTINT (Flength (pane, 1));
+  i = XFASTINT (Flength (pane));
 
   *vector = (Lisp_Object *) xmalloc (i * sizeof (Lisp_Object));
   *names = (char **) xmalloc (i * sizeof (char *));