From: Miles Bader Date: Tue, 28 Nov 2000 05:11:20 +0000 (+0000) Subject: (widget-choose): Make sure pop-up window is large enough to display all X-Git-Tag: emacs-pretest-21.0.92~29 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d970106bfbcee014036ba019a58a9ab8b7c3ddd7;p=emacs.git (widget-choose): Make sure pop-up window is large enough to display all the choices, as there's no way to scroll it. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aa68d060805..dc633c88ab9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-11-28 Miles Bader + + * 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 * international/mule-conf.el: Make the coding system no-conversion diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 6b5c1fbd99f..eb402a95eae 100644 --- a/lisp/wid-edit.el +++ b/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)