# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 975388220 0
# Node ID dd855bc086f3606cd4f46697835bf1be99e4e4a8
# Parent  8fefc1be4352c8d93b3cdaa7b9294583def347af
(widget-choose): Make sure pop-up window is large enough to display all
the choices, as there's no way to scroll it.

diff -r 8fefc1be4352 -r dd855bc086f3 lisp/wid-edit.el
--- a/lisp/wid-edit.el	Tue Nov 28 00:01:52 2000 +0000
+++ b/lisp/wid-edit.el	Tue Nov 28 05:10:20 2000 +0000
@@ -254,7 +254,7 @@
 	   ;; 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)