               ((eq find 'emc-find-last-cursor)
                (when (< (point) start) (emc-goto-cursor cursor create)))
               (t
-               (emc-goto-cursor cursor create)))))))
+               (emc-goto-cursor cursor create))))))
+  (emc-print-cursors-info))
 
 (defun emc-find-and-goto-match (direction create)
   "Find the next match in DIRECTION and optionally CREATE a cursor at point."
   (unless (emc-has-pattern-p) (emc-set-pattern))
   (emc-delete-all-regions)
-  (emc-goto-match direction create))
+  (emc-goto-match direction create)
+  (emc-print-cursors-info))
 
 (evil-define-command emc-make-cursor-here ()
   "Create a cursor at point."

  (define-key evil-visual-state-map (kbd "C-n") 'emc-make-and-goto-next-match)
  (define-key evil-normal-state-map (kbd ",n") 'emc-skip-and-goto-next-match)
  (define-key evil-visual-state-map (kbd ",n") 'emc-skip-and-goto-next-match)
  (define-key evil-normal-state-map (kbd "C-p") 'emc-make-and-goto-prev-match)
  (define-key evil-visual-state-map (kbd "C-p") 'emc-make-and-goto-prev-match)
  (define-key evil-normal-state-map (kbd ",p") 'emc-skip-and-goto-prev-match)

  (mapc 'emc-delete-cursor emc-cursor-list)
  (evil-exit-visual-state)
  (setq emc-cursor-list nil)
  (setq emc-pattern nil)
  (message "All cursors cleared"))

(evil-define-command emc-make-all-cursors ()
  "Initialize `emc-pattern' and make cursors for all matches."
