(require 'dired)
(define-key dired-mode-map (kbd "C-s") 'phi-search-dired)
;;; 表示を整えるアドバイス
(defun phi-search-dired-restrict-to-matches--show-all ()
  (with-selected-window (minibuffer-selected-window)
    (when (re-search-backward " \\.\\./?$" nil t)
      (forward-line 1)
      (recenter nil))))
(advice-add 'phi-search-dired-restrict-to-matches :after
            'phi-search-dired-restrict-to-matches--show-all)