(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 f9608a0d7c9bc037b73cd25f76b8119e788a1940..094c4499b754a5ffc3c0ccef8f0bee778310bb4e 100644 (file)
--- 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.