def-text-obj!: macro => subst

This commit is contained in:
Henrik Lissner 2016-05-24 20:49:28 -04:00
parent 504efc57e7
commit 151e34c195

View File

@ -195,11 +195,9 @@ Examples:
(after! evil
(defalias 'ex! 'evil-ex-define-cmd)
(defmacro def-text-obj! (key inner-fn &optional outer-fn)
(unless outer-fn (setq outer-fn inner-fn))
`(progn
(define-key evil-inner-text-objects-map ,key ,inner-fn)
(define-key evil-outer-text-objects-map ,key ,outer-fn)))
(defsubst def-text-obj! (key inner-fn &optional outer-fn)
(define-key evil-inner-text-objects-map key inner-fn)
(define-key evil-outer-text-objects-map key (or outer-fn inner-fn)))
;; Register keywords for proper indentation (see `map!')
(put ':prefix 'lisp-indent-function 'defun)