diff lisp/cus-edit.el @ 51561:bed114065e35

(custom-get-fresh-buffer): Kill overlays before erasing the buffer.

--- 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