diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-06-02 15:04:44 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-06-02 15:04:44 -0300 |
| commit | ea9fafe0937ebd99780610a7c1451ca08b013702 (patch) | |
| tree | 1c849b56bf6e4c6fc984c876aa5135eca1bcf12f /lisp | |
| parent | 037e65b496485cf3bd570a805bac787abac39cf3 (diff) | |
| download | emacs-ea9fafe0937ebd99780610a7c1451ca08b013702.tar.gz | |
* lisp/subr.el (make-progress-reporter): Add "..." by default.
Fixes: debbugs:8785
Diffstat (limited to 'lisp')
| -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 |