diff lisp/packages/apropos.el @ 10:49a24b4fd526 r19-15b6

Import from CVS: tag r19-15b6
author cvs
date Mon, 13 Aug 2007 08:47:52 +0200
parents b82b59fe008d
children 8fc7fe29b841
line wrap: on
line diff
--- a/lisp/packages/apropos.el	Mon Aug 13 08:47:36 2007 +0200
+++ b/lisp/packages/apropos.el	Mon Aug 13 08:47:52 2007 +0200
@@ -562,7 +562,8 @@
 	  (apropos-print-doc 'describe-variable 2
 			     "Variable" do-keys)
 	  (apropos-print-doc 'apropos-describe-plist 3
-			     "Plist" nil)))))
+			     "Plist" nil))))
+    (shrink-window-if-larger-than-buffer (get-buffer-window "*Apropos*")))
   (prog1 apropos-accumulator
     (setq apropos-accumulator ())))	; permit gc