# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1055617460 0
# Node ID bed114065e35a6649fec123185abf88a6ea14437
# Parent  12371b18ce0099c14f00576b9128d57551ceb6ec
(custom-get-fresh-buffer): Kill overlays before erasing the buffer.

diff -r 12371b18ce00 -r bed114065e35 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Sat Jun 14 11:26:08 2003 +0000
+++ b/lisp/cus-edit.el	Sat Jun 14 19:04:20 2003 +0000
@@ -1223,10 +1223,12 @@
       (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