Source of Nothingness - xyzzy lisp : walk-windowsの代わりに

* 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