From d970106bfbcee014036ba019a58a9ab8b7c3ddd7 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 28 Nov 2000 05:11:20 +0000 Subject: [PATCH] (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 | 5 +++++ lisp/wid-edit.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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) -- 2.39.2