From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 2 Jun 2011 18:04:44 +0000 (-0300)
Subject: * lisp/subr.el (make-progress-reporter): Add "..." by default.
X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~44
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea9fafe0937ebd99780610a7c1451ca08b013702;p=emacs.git

* lisp/subr.el (make-progress-reporter): Add "..." by default.

Fixes: debbugs:8785
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3834c99f000..101384cee7d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-06-02  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* subr.el (make-progress-reporter): Add "..." by default (bug#8785).
+
 2011-06-02  Juanma Barranquero  <lekktu@gmail.com>
 
 	* bs.el (bs--mark-unmark, bs--nth-wrapper):
diff --git a/lisp/subr.el b/lisp/subr.el
index 74c9ce57d8f..d0ef38c1140 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3702,6 +3702,8 @@ echo area updates (default is 0.2 seconds.)  If the function
 `float-time' is not present, time is not tracked at all.  If the
 OS is not capable of measuring fractions of seconds, this
 parameter is effectively rounded up."
+  (when (string-match "[[:alnum:]]\\'" message)
+    (setq message (concat message "...")))
   (unless min-time
     (setq min-time 0.2))
   (let ((reporter