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