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

Change arity of define-repeat-map--map-commands 

I changed the actual function's arity earlier ... oops.
This commit is contained in:
Case Duckworth 2021-09-07 18:22:50 -05:00
parent f50f0d84e0
commit db53b9008f
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
define-repeat-map.el
View File

@ -82,7 +82,6 @@ map. However, their invocations keep the `repeat-map' active."
;; Add the map to the commands' repeat-map property.
(push `(progn
,@(define-repeat-map--map-commands
`,map
(lambda (cmd) `(put ',cmd 'repeat-map ',map))
(cdr arg)))
define-repeat-map--result))
@ -103,7 +102,6 @@ map. However, their invocations keep the `repeat-map' active."
(lambda (cmd) (define-repeat-map--make-alias cmd map))
(cdr arg))
,@(define-repeat-map--map-commands
`,map
(lambda (cmd)
(let ((alias (define-repeat-map--make-alias cmd map)))
`(progn
@ -120,7 +118,6 @@ map. However, their invocations keep the `repeat-map' active."
(push `(progn
,@(define-repeat-map--define-keys `,map #'identity arg)
,@(define-repeat-map--map-commands
`,map
(lambda (cmd) `(put ',cmd 'repeat-map ',map))
arg))
define-repeat-map--result))))