[Emacs-diffs] /srv/bzr/emacs/trunk r104481: * lisp/subr.el (make-progress-reporter): Add "..." by default.

[Stefan Monnier]

------------------------------------------------------------
revno: 104481
fixes bug(s): http://debbugs.gnu.org/cgi/bugreport.cgi?bug=8785
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2011-06-02 15:04:44 -0300
message:
  * lisp/subr.el (make-progress-reporter): Add "..." by default.
modified:
  lisp/ChangeLog
  lisp/subr.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-02 11:24:12 +0000
+++ b/lisp/ChangeLog    2011-06-02 18:04:44 +0000
@@ -1,3 +1,7 @@
+2011-06-02  Stefan Monnier  <address@hidden>
+
+       * subr.el (make-progress-reporter): Add "..." by default (bug#8785).
+
 2011-06-02  Juanma Barranquero  <address@hidden>
 
        * bs.el (bs--mark-unmark, bs--nth-wrapper):

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2011-06-01 14:19:45 +0000
+++ b/lisp/subr.el      2011-06-02 18:04:44 +0000
@@ -3702,6 +3702,8 @@
 `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