Re: scroll-left *Disabled Command* buffer is too short

[martin rudalics]

> *** novice.el      2007-01-21 23:44:40.000000000 +0100
> --- novice.el      2007-07-03 16:57:33.000000000 +0200
> ***************
> *** 88,95 ****
>   SPC to try the command just this once, but leave it disabled.
>   !   to try it, and enable all disabled commands for this session only.")
>          (save-excursion
> !  (set-buffer standard-output)
> !  (help-mode)))
>        (message "Type y, n, ! or SPC (the space bar): ")
>        (let ((cursor-in-echo-area t))
>          (while (progn (setq char (read-event))
> --- 88,96 ----
>   SPC to try the command just this once, but leave it disabled.
>   !   to try it, and enable all disabled commands for this session only.")
>          (save-excursion
> !   (pop-to-buffer "*Disabled Command*")
> !   (fit-window-to-buffer)
> !   (help-mode)))
>        (message "Type y, n, ! or SPC (the space bar): ")
>        (let ((cursor-in-echo-area t))
>          (while (progn (setq char (read-event))

`pop-to-buffer' is drastic, I'd prefer something like the attached one
(my earlier patch was wrong because `with-output-to-temp-buffer' first
evaluates the args and then selects the window to show the buffer).

*** novice.el   Tue Jan 23 06:40:06 2007
--- novice.el   Tue Jul  3 17:33:24 2007
***************
*** 88,95 ****
  SPC to try the command just this once, but leave it disabled.
  !   to try it, and enable all disabled commands for this session only.")
         (save-excursion
!       (set-buffer standard-output)
!       (help-mode)))
       (message "Type y, n, ! or SPC (the space bar): ")
       (let ((cursor-in-echo-area t))
         (while (progn (setq char (read-event))
--- 88,96 ----
  SPC to try the command just this once, but leave it disabled.
  !   to try it, and enable all disabled commands for this session only.")
         (save-excursion
!        (set-buffer standard-output)
!        (help-mode)))
!      (fit-window-to-buffer (get-buffer-window "*Disabled Command*"))
       (message "Type y, n, ! or SPC (the space bar): ")
       (let ((cursor-in-echo-area t))
         (while (progn (setq char (read-event))