-
- (with-eval-after-load "evil"
- ;; remap x to X as `evil-move-cursor-back' is set nil
- ;; (define-key evil-normal-state-map [remap evil-delete-char] 'evil-delete-backward-char)
- (define-key evil-normal-state-map (kbd "x") (lambda () (interactive)
- (let ((org evil-move-cursor-back))
- (setq evil-move-cursor-back t)
- (call-interactively 'evil-delete-char)
- ;; (evil-delete-char)
- (setq evil-move-cursor-back org)))))