* xyzzy lisp : walk-windowsの代わりに
(defun enum-windows (fn &optional minibuf) (save-excursion (save-window-excursion (do ((win (selected-window) (next-window win minibuf)) (cnt (count-windows minibuf) (1- cnt))) ((zerop cnt) nil) (set-window win) (let ((res (funcall fn win))) (if res (return res)))))))
update : 2006-09-18 (Mon) 01:55:28