 (defun emc-set-cursor-face (face)
   "Set the current cursor FACE."
   (setq emc-cursor-current-face face))
+
+(defun emc-print-cursors-info (&optional msg)
+  "Prints information about the current cursors preceded by MSG."
+  (message "%s %s cursors matching \"%s\""
+           (or msg "There are")
+           (1+ (length emc-cursor-list))
+           (emc-get-pattern-text)))
 
 (defun emc-cursor-overlay (start end)
   "Make an overlay for a cursor from START to END."

  (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)

    (emc-set-pattern)
    (evil-exit-visual-state)
    (emc-make-cursors-for-all)
    (emc-print-cursors-info "Created")))

(defun emc-setup-cursor-key-maps ()
  "Set up key maps for cursor operations."
