From f5a9b1805c1168e5a15e22e34a1d3899f30aec33 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 14 Jun 2003 19:04:20 +0000
Subject: [PATCH] (custom-get-fresh-buffer): Kill overlays before erasing the
 buffer.

---
 lisp/cus-edit.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 090503e67e7..9041ec3c14c 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1223,10 +1223,12 @@ not for everybody."
       (with-current-buffer buf
 	(kill-all-local-variables)
 	(run-hooks 'kill-buffer-hook)
-	(erase-buffer)
+	;; Delete overlays before erasing the buffer so the overlay hooks
+	;; don't get run spuriously when we erase the buffer.
 	(let ((ols (overlay-lists)))
 	  (dolist (ol (nconc (car ols) (cdr ols)))
 	    (delete-overlay ol)))
+	(erase-buffer)
 	buf))))
 
 ;;;###autoload
-- 
2.39.5