kluge to clean up phi-search results in multiple-cursor mode

phi-search-kluge.el

(defvar my-phi-search-counter 0)
(defvar my-mc-cleanup-counter 0)

(defadvice phi-search-complete (around my-phi-search-cleanup)
  ad-do-it
  (cl-incf my-phi-search-counter))

(defadvice mc/execute-command-for-all-fake-cursors (around my-mc/execute-command-for-fake-all-cursors)
  ad-do-it
  (if (< my-mc-cleanup-counter my-phi-search-counter)
      (mc/cleanup-fake-cursors)))

(ad-activate 'phi-search-complete)
(ad-activate 'mc/execute-command-for-all-fake-cursors)

(defun mc/cleanup-fake-cursors ()
  (setq my-mc-cleanup-counter my-phi-search-counter)
  (cl-mapc (lambda (el) (mc/remove-fake-cursor el))
        (cl-reduce (lambda (result sublist)
                  (let ((pos (overlay-get (cl-first sublist) 'point)))
                    (if (cl-some (lambda (el) (equal pos (overlay-get el 'point))) (cl-rest sublist))
                        (cons (cl-first sublist) result)
                      result)))
                (cl-maplist 'identity (mc/all-fake-cursors))
                :initial-value nil)))