Anythingのプロンプトがある状態でほかのウィンドウに移動したらanything-keyboard-quitする

gistfile1.txt

;; Anythingのプロンプトがある状態でほかのウィンドウに移動したらanything-keyboard-quitする

(defvar my-last-selected-buffer nil
  "The buffer that was selected before the current window change.")

(defun my-window-selection-change (frame)
  "Handle anything-keyboard-quit when switching from minibuffer."
  (let ((current-buffer (buffer-name (window-buffer (selected-window)))))
    (when (and my-last-selected-buffer
               (stringp (buffer-name my-last-selected-buffer))
               (string= (string-trim (buffer-name my-last-selected-buffer)) "*Minibuf-1*")
               (anything-window))
      (setq my-last-selected-buffer nil)
      (when (fboundp 'anything-keyboard-quit)
        (anything-keyboard-quit)))
    (setq my-last-selected-buffer (or (window-buffer (selected-window)) nil))))

(add-hook 'window-selection-change-functions #'my-window-selection-change)