diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/subr.el | 2 |
2 files changed, 6 insertions, 0 deletions
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 |