From: Wesley Dawson Date: Fri, 4 Jan 2013 08:20:49 +0000 (-0800) Subject: icomplete-prospects-height fix (tiny change) X-Git-Tag: emacs-24.3.90~173^2~7^2~403 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bdd9367d4edddbbe745dad84eb33226d0ab969e4;p=emacs.git icomplete-prospects-height fix (tiny change) * icomplete.el (icomplete-completions): Honor icomplete-prospects-height once more following 2012-11-29 changes. Fixes: debbugs:13224 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cc1e652eb5d..0dbe5ac0eb7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2013-01-04 Wesley Dawson (tiny change) + + * icomplete.el (icomplete-completions): + Honor icomplete-prospects-height once more following + 2012-11-29 changes. (Bug#13224) + 2013-01-04 Stefan Monnier * subr.el (internal--called-interactively-p--get-frame): Find aliases diff --git a/lisp/icomplete.el b/lisp/icomplete.el index 0493a5b49e8..9407de4f6d9 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el @@ -343,8 +343,10 @@ are exhibited within the square braces.)" (t (concat "…" (substring most compare)))) close-bracket))) ;;"-prospects" - more than one candidate - (prospects-len (+ (length determ) 6 ;; take {,...} into account - (string-width (buffer-string)))) + (prospects-len (+ (length determ) + (string-width icomplete-separator) + 3 ;; take {…} into account + (string-width (buffer-string)))) (prospects-max ;; Max total length to use, including the minibuffer content. (* (+ icomplete-prospects-height @@ -375,7 +377,9 @@ are exhibited within the square braces.)" (cond ((string-equal comp "") (setq most-is-exact t)) ((member comp prospects)) (t (setq prospects-len - (+ (string-width comp) 1 prospects-len)) + (+ (string-width comp) + (string-width icomplete-separator) + prospects-len)) (if (< prospects-len prospects-max) (push comp prospects) (setq limit t))))))