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/subr.el | |
| parent | 037e65b496485cf3bd570a805bac787abac39cf3 (diff) | |
| download | emacs-ea9fafe0937ebd99780610a7c1451ca08b013702.tar.gz | |
* lisp/subr.el (make-progress-reporter): Add "..." by default.
Fixes: debbugs:8785
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 2 insertions, 0 deletions
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 |