[Emacs-diffs] /srv/bzr/emacs/trunk r111261: * lisp/ic omplete.el (icomplete-completions): Also use … to truncate prefix.

[Stefan Monnier]

------------------------------------------------------------
revno: 111261
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2012-12-17 14:43:55 -0500
message:
  * lisp/icomplete.el (icomplete-completions): Also use … to truncate prefix.
modified:
  lisp/ChangeLog
  lisp/icomplete.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-17 15:51:49 +0000
+++ b/lisp/ChangeLog    2012-12-17 19:43:55 +0000
@@ -1,3 +1,7 @@
+2012-12-17  Stefan Monnier  <address@hidden>
+
+       * icomplete.el (icomplete-completions): Also use … to truncate prefix.
+
 2012-12-17  Kevin Ryde  <address@hidden>
 
        * files.el (auto-save-file-name-p): Use \` and \' (bug#13186).

=== modified file 'lisp/icomplete.el'
--- a/lisp/icomplete.el 2012-11-30 17:09:55 +0000
+++ b/lisp/icomplete.el 2012-12-17 19:43:55 +0000
@@ -337,8 +337,10 @@
                                ((= compare (length name))
                                  ;; Typical case: name is a prefix.
                                 (substring most compare))
-                               ((< compare 5) most)
-                               (t (concat "..." (substring most compare))))
+                                ;; Don't bother truncating if it doesn't gain
+                                ;; us at least 2 columns.
+                               ((< compare 3) most)
+                               (t (concat "…" (substring most compare))))
                               close-bracket)))
             ;;"-prospects" - more than one candidate
             (prospects-len (+ (length determ) 6 ;; take {,...} into account