From: David Cadé <codename68@gmail.com>
Date: Wed, 12 Dec 2012 14:42:03 +0000 (-0500)
Subject: * lisp/mpc.el (mpc-format): Use truncate-string-to-width.
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/fd49a2185ff4f1710bc337168fd15af91064a74e

* lisp/mpc.el (mpc-format): Use truncate-string-to-width.

Fixes: debbugs:13143
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 49e129cd77..a5fab65b34 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-12-12  David Cadé  <codename68@gmail.com>
+
+	* mpc.el (mpc-format): Use truncate-string-to-width (bug#13143).
+
 2012-12-12  Jonas Bernoulli  <jonas@bernoul.li>
 
 	* lisp/emacs-lisp/eieio.el: Prettier object pretty-printing (bug#13115).
diff --git a/lisp/mpc.el b/lisp/mpc.el
index e8b5c50e56..65363de40f 100644
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -1034,11 +1034,8 @@ If PLAYLIST is t or nil or missing, use the main playlist."
             (let ((display
                    (if (and size
                             (> (+ 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.