acdw
/
define-repeat-map.el
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix quoting bugs

This commit is contained in:
Case Duckworth 2021-09-07 14:47:03 +00:00
parent 647605457b
commit b12f781155
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
define-repeat-map.el
View File

@ -44,7 +44,7 @@
(while args (while args
(let ((key (pop args)) (let ((key (pop args))
(cmd (funcall fn (pop args)))) (cmd (funcall fn (pop args))))
(push `(define-key ,map `(kbd ,key) #',cmd) (push `(define-key ,map (kbd ,key) #',cmd)
res))) res)))
(reverse res))) (reverse res)))
@ -125,7 +125,7 @@
arg)) arg))
define-repeat-map--result)))) define-repeat-map--result))))
`(add-hook repeat-mode-hook `(add-hook 'repeat-mode-hook
(lambda nil (lambda nil
,@(reverse define-repeat-map--result))))) ,@(reverse define-repeat-map--result)))))