From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 8 Nov 2006 17:31:46 +0000 (+0000)
Subject: (remove-overlays): Call overlay-recenter.
X-Git-Tag: emacs-pretest-22.0.91~211
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d6f5ac1084e4223c88bf060d7e7033ee0d49b008;p=emacs.git

(remove-overlays): Call overlay-recenter.
---

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)