diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-06-14 19:04:20 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-06-14 19:04:20 +0000 |
| commit | f5a9b1805c1168e5a15e22e34a1d3899f30aec33 (patch) | |
| tree | 21ab6e4ec28b873155841756e00bdd29a845acc2 | |
| parent | b35319bfc2095f89cf9c7f5e526032a9c97fdc16 (diff) | |
| download | emacs-f5a9b1805c1168e5a15e22e34a1d3899f30aec33.tar.gz | |
(custom-get-fresh-buffer): Kill overlays before erasing the buffer.
| -rw-r--r-- | lisp/cus-edit.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |