(defvar buffer-cycle-point) (defun cycle-buffers() (setq bl (buffer-list)) (if bl ;blah blah blah))