Subject: bug#66404: closed (Re: bug#66404: [PATCH] Use delete-all-overlays in clean-mode)

From: [email-masked] (GNU bug Tracking System)
Date: Sun, 08 Oct 2023 20:57:02 +0000

Your bug report

#66404: [PATCH] Use delete-all-overlays in clean-mode

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
66404: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=66404
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#66404: [PATCH] Use delete-all-overlays in clean-mode
From: Joseph Turner <[email-masked]>
To: Eli Zaretskii <[email-masked]>
Cc: [email-masked], Stefan Kangas <[email-masked]>
Date: Sun, 08 Oct 2023 13:54:09 -0700
List-Id: <debbugs-submit.debbugs.gnu.org>

Eli Zaretskii <[email-masked]> writes:

>> From: Joseph Turner <[email-masked]>
>>
>> (Is there a way for me to close my own issues?)
>
> Yes, see admin/notes/bugtracker.

Thank you!! I was not aware of this.

Stefan: Please consider mentioning admin/notes/bugtracker in your talk.

Joseph

Subject: [PATCH] Use delete-all-overlays in clean-mode
From: Joseph Turner <[email-masked]>
To: [email-masked]
Date: Sun, 08 Oct 2023 02:58:45 -0700
List-Id: <debbugs-submit.debbugs.gnu.org>

Tags: patch

Is there a reason to use dolist instead of delete-all-overlays?

>From d47e0cbe9ecaeb0cd4da12ab70f03d4c138f9265 Mon Sep 17 00:00:00 2001
From: Joseph Turner <[email-masked]>
Date: Sun, 8 Oct 2023 02:54:10 -0700
Subject: [PATCH] Use delete-all-overlays in clean-mode

* lisp/simple.el (clean-mode): Replace dolist
---
 lisp/simple.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index b770d9d7d33..8f2bd84d805 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -549,8 +549,7 @@ Other major modes are defined by comparison with this one."
   "A mode that removes all overlays and text properties."
   (kill-all-local-variables t)
   (let ((inhibit-read-only t))
-    (dolist (overlay (overlays-in (point-min) (point-max)))
-      (delete-overlay overlay))
+    (delete-all-overlays)
     (set-text-properties (point-min) (point-max) nil)
     (setq-local yank-excluded-properties t)))
 
-- 
2.41.0