(remove-overlays): Call overlay-recenter.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 85b188ff5818afc87b22dc6440a6e26bb17ec8d6..c64546ee6cc0fc45b8b223c5feef202f124d7988 100644 (file)
--- 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 cf09264e4b10bc27499ed0d5982d2affc484a776..3fcdaaab7530c9ba079c9a3b10479de294514228 100644 (file)
--- 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)