(remove-overlays): Call overlay-recenter.

2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 85b188ff581..c64546ee6cc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-11-08  Richard Stallman  <rms@gnu.org>
+
+        * subr.el (remove-overlays): Call overlay-recenter.
+
 2006-11-08  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
         * printing.el (pr-alist-custom-set, pr-ps-utility-custom-set)
diff --git a/lisp/subr.el b/lisp/subr.el
index cf09264e4b1..3fcdaaab753 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1960,6 +1960,8 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
   "Clear BEG and END of overlays whose property NAME has value VAL.
 Overlays might be moved and/or split.
 BEG and END default respectively to the beginning and end of buffer."
+  ;; This speeds up the loops over overlays.
+  (overlay-recented (point-max))
   (unless beg (setq beg (point-min)))
   (unless end (setq end (point-max)))
   (if (< end beg)