From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 24 Jun 1997 02:26:57 +0000 (+0000)
Subject: (hs-discard-overlays): Use overlays-in to
X-Git-Tag: emacs-20.1~1518
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e863e26439fb8e844e218ce21da41cd748cef904;p=emacs.git

(hs-discard-overlays): Use overlays-in to
get all the overlays in a range.  Don't use let inside a cycle.
---

diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index f9608a0d7c9..094c4499b75 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -334,14 +334,13 @@ what kind of block it is suppose to hide."
       (setq beg (prog1 end (setq end beg))))
   (save-excursion
     (goto-char beg)
-    (while (< (point) end)
-      (let ((overlays (overlays-at (point))))
-	(while overlays
-	  (let ((o (car overlays)))
-	    (if (eq (overlay-get o prop) value)
-		    (delete-overlay o)))
-	  (setq overlays (cdr overlays))))
-      (goto-char (next-overlay-change (point))))))
+    (let ((overlays (overlays-in beg end))
+	  o)
+      (while overlays
+	(setq o (car overlays))
+	(if (eq (overlay-get o prop) value)
+	    (delete-overlay o))
+	  (setq overlays (cdr overlays))))))
 
 (defun hs-hide-block-at-point (&optional end comment-reg)
   "Hide block iff on block beginning, optional END means reposition at end.