- (dolist (window (window-list))
- (let ((modename (with-current-buffer (window-buffer window)
- major-mode)))
- (if (equal modename 'eshell-mode)
- (setq ret window))))
+ (walk-windows (lambda (window)
+ (if (equal (with-current-buffer (window-buffer window) major-mode)
+ 'eshell-mode)
+ (setq ret window)))
+ nil nil)