                                                          state-variables
                                                          clear-variables)
                                     cursor-list))))
-              (length cursor-list)
               (setq evil-mc-cursor-list cursor-list)))))
       (evil-mc-clear-command))))
 

  "Execute an `evil-surround-region' command."
  (evil-mc-with-region-or-execute-macro region nil
    (goto-char region-start)
    (evil-surround-region region-start
                          region-end
                          region-type
                          (evil-mc-get-command-last-input))))

(defun evil-mc-execute-change-case (cmd)
  "Execute an `evil-invert-char', `evil-invert-case' `evil-upcase'


(evil-mc-define-visual-handler evil-mc-execute-visual-evil-snipe ()
  (evil-mc-execute-evil-snipe))

(evil-mc-define-visual-handler evil-mc-execute-visual-shift-left ()
  (evil-mc-execute-evil-shift 'evil-shift-left))
