From 151e34c19518523b8f2ea4404be7f9d9160b9c15 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 24 May 2016 20:49:28 -0400 Subject: [PATCH] def-text-obj!: macro => subst --- core/core-defuns.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/core/core-defuns.el b/core/core-defuns.el index 7b3907514..9073bed38 100644 --- a/core/core-defuns.el +++ b/core/core-defuns.el @@ -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)