diff lisp/packages/apropos.el @ 76:c0c698873ce1 r20-0b33

Import from CVS: tag r20-0b33
author cvs
date Mon, 13 Aug 2007 09:05:10 +0200
parents b9518feda344
children 0d2f883870bc
line wrap: on
line diff
--- a/lisp/packages/apropos.el	Mon Aug 13 09:04:39 2007 +0200
+++ b/lisp/packages/apropos.el	Mon Aug 13 09:05:10 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