diff options
| author | Kjetil Orbekk <kj@orbekk.com> | 2023-03-14 14:13:53 -0400 |
|---|---|---|
| committer | Kjetil Orbekk <kj@orbekk.com> | 2023-03-14 14:15:19 -0400 |
| commit | 11be25ed81cdb198fe81d3c4db06ed271da1401f (patch) | |
| tree | 7607c60e41b869e9f5480b58b4c1a37d9addb902 | |
| parent | 4da5f34732d048917e8dcbdba7f7649f4dcac316 (diff) | |
Fix macro
| -rw-r--r-- | emacs/.config/emacs-kj/lisp/kj-lib.el | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/emacs/.config/emacs-kj/lisp/kj-lib.el b/emacs/.config/emacs-kj/lisp/kj-lib.el index 117584b..82623bb 100644 --- a/emacs/.config/emacs-kj/lisp/kj-lib.el +++ b/emacs/.config/emacs-kj/lisp/kj-lib.el @@ -1,7 +1,6 @@ ;;; -*- lexical-binding: t; -*- (defmacro define-repeating-key (keymap key cmd &optional desc) - "DEF may be a cons cell (DESCRIPTION . FUNC) or a command." `(let ((def ,(if desc `'(,desc ,cmd) @@ -10,8 +9,3 @@ (put ',cmd 'repeat-map ',keymap))) (provide 'kj-lib) - -(macroexpand '(define-repeating-key map "." mc/mark-next-like-this )) -(define-repeating-map) - -(macroexpand '(define-repeating-key map "." mc/mark-next-like-this "→ this")) |