1223 |
(with-current-buffer buf |
(with-current-buffer buf |
1224 |
(kill-all-local-variables) |
(kill-all-local-variables) |
1225 |
(run-hooks 'kill-buffer-hook) |
(run-hooks 'kill-buffer-hook) |
1226 |
(erase-buffer) |
;; Delete overlays before erasing the buffer so the overlay hooks |
1227 |
|
;; don't get run spuriously when we erase the buffer. |
1228 |
(let ((ols (overlay-lists))) |
(let ((ols (overlay-lists))) |
1229 |
(dolist (ol (nconc (car ols) (cdr ols))) |
(dolist (ol (nconc (car ols) (cdr ols))) |
1230 |
(delete-overlay ol))) |
(delete-overlay ol))) |
1231 |
|
(erase-buffer) |
1232 |
buf)))) |
buf)))) |
1233 |
|
|
1234 |
;;;###autoload |
;;;###autoload |