From a5744447058cc183d34b0f75fa4662b11b227617 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Mon, 10 Aug 2020 12:32:27 +0100 Subject: +support for multiple functions in evil-mc --- Emacs/.config/emacs/config.org | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'Emacs/.config/emacs/config.org') diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org index 49df735..75ce8e2 100644 --- a/Emacs/.config/emacs/config.org +++ b/Emacs/.config/emacs/config.org @@ -251,10 +251,24 @@ the current position. ("r" . evil-mc-resume-cursors) ("s" . evil-mc-pause-cursors)) :init - (defvar evil-mc-key-map (make-sparse-keymap)) (define-prefix-command 'dx:evil-mc-map) (bind-key "gz" dx:evil-mc-map evil-normal-state-map) :config + (dolist (fn '((delete-char) + (backward-kill-word) + (company-complete-common . evil-mc-execute-default-complete) + (evil-delete-back-to-indentation . evil-mc-execute-default-call) + ;; Have evil-mc work with explicit `evil-escape' (on C-g) + (evil-escape . evil-mc-execute-default-evil-normal-state) + ;; Add `evil-org' support + (evil-org-delete . evil-mc-execute-default-evil-delete) + (evil-org-delete-char . evil-mc-execute-default-evil-delete) + (evil-org-delete-backward-char . evil-mc-execute-default-evil-delete))) + (cl-pushnew `(,(car fn) (:default . ,(or (cdr fn) #'evil-mc-execute-default-call-with-count))) + evil-mc-custom-known-commands + :test #'eq + :key #'car)) + (global-evil-mc-mode +1) (defun dx:evil-mc-cursor-here () (interactive) -- cgit v1.2.3-13-gbd6f