diff lisp/prim/help.el @ 22:8fc7fe29b841 r19-15b94

Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children 4103f0995bd7
line wrap: on
line diff
--- a/lisp/prim/help.el	Mon Aug 13 08:50:06 2007 +0200
+++ b/lisp/prim/help.el	Mon Aug 13 08:50:29 2007 +0200
@@ -382,7 +382,8 @@
                     (t
                      (message
                       (substitute-command-keys "Type \\[switch-to-buffer-other-window] to restore the other window, \\[scroll-other-window] to scroll the help."))))
-	      (shrink-window-if-larger-than-buffer helpwin)))))))
+	      (when temp-buffer-shrink-to-fit
+		(shrink-window-if-larger-than-buffer helpwin))))))))
 
 (defun describe-key (key)
   "Display documentation of the function invoked by KEY.