summaryrefslogtreecommitdiff
path: root/lisp/novice.el
diff options
context:
space:
mode:
authorMartin Rudalics <rudalics@gmx.at>2007-07-08 08:28:12 +0000
committerMartin Rudalics <rudalics@gmx.at>2007-07-08 08:28:12 +0000
commit0468beecc981e9d205c79bbdd02a7b01c09c9313 (patch)
tree0ab960007992e4c9c72a0c6f80af1de2bd8cde65 /lisp/novice.el
parent177ffe92bfbea69c11934aadc97c12312938469c (diff)
downloademacs-0468beecc981e9d205c79bbdd02a7b01c09c9313.tar.gz
(disabled-command-function): Fit window to buffer to
make last line visible.
Diffstat (limited to 'lisp/novice.el')
-rw-r--r--lisp/novice.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/novice.el b/lisp/novice.el
index f5c3019dfc2..346877dcdda 100644
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -88,8 +88,9 @@ n to cancel--don't try the command, and it remains disabled.
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)))
+ (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))