(defun visit-all-buffers-exit-recursive-edit ()
"Visit all buffers in (buffer-list) and run (exit-recursive-edit) in each."
    (interactive)
    (setq bufs (buffer-list))
    (while bufs
        (switch-to-buffer (car bufs))
	(exit-recursive-edit)
	(setq bufs (cdr bufs))
	(read-from-minibuffer "Type any key to continue. ")
    )
)