=== modified file 'lisp/mpc.el'
--- lisp/mpc.el	2012-08-15 16:29:11 +0000
+++ lisp/mpc.el	2012-12-12 13:53:32 +0000
@@ -1036,9 +1036,7 @@
                             (> (+ postwidth textwidth) size))
                        ;; This doesn't even obey double-width chars :-(
                        (propertize
-                        (if (zerop (- size postwidth 1))
-                            (substring text 0 1)
-                          (concat (substring text 0 (- size postwidth textwidth 1)) "…"))
+			(truncate-string-to-width text size nil nil "…")
                         'help-echo text)
                      text)))
               (when (memq tag '(Artist Album Composer)) ;FIXME: wrong list.