(widget-choose): Make sure pop-up window is large enough to display all

the choices, as there's no way to scroll it.

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2000-11-28  Miles Bader  <miles@gnu.org>
+
+	* wid-edit.el (widget-choose): Make sure pop-up window is large
+	enough to display all the choices, as there's no way to scroll it.
+
 2000-11-28  Kenichi Handa  <handa@etl.go.jp>
 
 	* international/mule-conf.el: Make the coding system no-conversion

lisp/wid-edit.el

@@ -254,7 +254,7 @@ minibuffer."
 	   ;; that corresponds to it.
 	   (save-window-excursion
 	     (let ((buf (get-buffer " widget-choose")))
-	       (display-buffer buf)
+	       (fit-window-to-buffer (display-buffer buf))
 	       (let ((cursor-in-echo-area t)
 		     keys
 		     (char 0)