anything中にanythingのバッファのみを残して他のウィンドウを消す

anything実行中にanythingバッファが小さくて候補リストが見づらいとき、
また注視位置からずれた場所にanythingバッファが出来たときなどに結構使用しています。
よろしかったらご使用ください。

(defun anything-window-opration-base (command)
  (save-selected-window
    (select-window
	 (get-buffer-window (get-buffer anything-buffer)))
    (call-interactively command)))

(defun anything-delete-other-windows ()
  (interactive)
  (anything-window-opration-base (lambda ()
			     (interactive)
			     (delete-other-windows))))

(define-key anything-map (kbd "C-c C-w") 'anything-delete-other-windows)