/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.184 by lute, Tue Jun 3 11:24:06 2003 UTC revision 1.185 by monnier, Sat Jun 14 19:04:20 2003 UTC
# Line 1223  not for everybody." Line 1223  not for everybody."
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

Legend:
Removed from v.1.184  
changed lines
  Added in v.1.185

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26