From ea9fafe0937ebd99780610a7c1451ca08b013702 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 2 Jun 2011 15:04:44 -0300 Subject: [PATCH] * lisp/subr.el (make-progress-reporter): Add "..." by default. Fixes: debbugs:8785 --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 2 ++ 2 files changed, 6 insertions(+) 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 + + * subr.el (make-progress-reporter): Add "..." by default (bug#8785). + 2011-06-02 Juanma Barranquero * 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 -- 2.39.5