Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 49a24b4fd526
children 8d2a9b52c682
line wrap: on
line diff
--- a/lisp/prim/lisp.el	Mon Aug 13 08:50:06 2007 +0200
+++ b/lisp/prim/lisp.el	Mon Aug 13 08:50:29 2007 +0200
@@ -327,8 +327,9 @@
 		   (setq list (nreverse new))))
 	     (with-output-to-temp-buffer "*Completions*"
 	       (display-completion-list list))
-	     (shrink-window-if-larger-than-buffer
-	      (get-buffer-window "*Completions*")))
+	     (when temp-buffer-shrink-to-fit
+	       (shrink-window-if-larger-than-buffer
+		(get-buffer-window "*Completions*"))))
 	   (message "Making completion list...%s" "done")))))
 
 ;;; lisp.el ends here