awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Appease byte-compiler-sama

Browse Source
This commit is contained in:
Henrik Lissner
2018-05-14 20:35:26 +02:00
parent 6e3f500a39
commit e44fd886f2
5 changed files with 21 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
modules/config/default/config.el
View File

@ -76,15 +76,16 @@
(defvar +default-repeat-forward-key ";")
(defvar +default-repeat-backward-key ",")
;; Makes ; and , the universal repeat-keys in evil-mode
(defmacro do-repeat! (command next-func prev-func)
"Repeat motions with ;/,"
(let ((fn-sym (intern (format "+evil*repeat-%s" command))))
`(progn
(defun ,fn-sym (&rest _)
(define-key evil-motion-state-map +default-repeat-forward-key ',next-func)
(define-key evil-motion-state-map +default-repeat-backward-key ',prev-func))
(advice-add #',command :before #',fn-sym))))
(eval-and-compile
;; Makes ; and , the universal repeat-keys in evil-mode
(defmacro do-repeat! (command next-func prev-func)
"Repeat motions with ;/,"
(let ((fn-sym (intern (format "+evil*repeat-%s" (doom-unquote command)))))
`(progn
(defun ,fn-sym (&rest _)
(define-key evil-motion-state-map +default-repeat-forward-key #',next-func)
(define-key evil-motion-state-map +default-repeat-backward-key #',prev-func))
(advice-add #',command :before #',fn-sym)))))
;; n/N
(do-repeat! evil-ex-search-next evil-ex-search-next evil-ex-search-previous)