 (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."

              ((eq find 'emc-find-last-cursor)
               (when (< (point) start) (emc-goto-cursor cursor create)))
              (t
               (emc-goto-cursor cursor create)))))))

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

(evil-define-command emc-make-cursor-here ()
  "Create a cursor at point."

      (goto-char (1- (point)))
      (when (and found create (/= point (point)))
        (emc-make-cursor-at-pos point))
      (emc-undo-cursor-at-pos))))

(defun emc-find-and-goto-cursor (find create)
  "FIND a cursor, go to it, and optionally CREATE a cursor at point."
