* dabbrev.el (dabbrev--find-expansion): Update progress reporter.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50e012ad77b0e2cb26be57bc44de971b1d66ea32..49d673849207378e5aba82694acff37eb280411a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-11  Chong Yidong  <cyd@gnu.org>
+
+       * dabbrev.el (dabbrev--find-expansion): Update progress reporter
+       when finished (Bug#10963).
+
 2012-03-11  Martin Rudalics  <rudalics@gmx.at>
 
        * window.el (split-window-below): Fix bug in case where

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index 7b94b53e6c7a6b3c078229ee6b48e210dfe79cf1..aad3c83c32be7cced365b0fb560e3afdb858c316 100644 (file)
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -763,6 +763,7 @@ of the start of the occurrence."
                                      (- (length dabbrev--friend-buffer-list)))
           (setq dabbrev--last-expansion-location (point-min))
           (setq expansion (dabbrev--try-find abbrev nil 1 ignore-case)))
+        (progress-reporter-done dabbrev--progress-reporter)
         expansion)))))
 
 ;; Compute the list of buffers to scan.