Change arity of define-repeat-map--map-commands
I changed the actual function's arity earlier ... oops.
This commit is contained in:
parent
f50f0d84e0
commit
db53b9008f
|
@ -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))))
|
||||
|
|
Loading…
Reference in New Issue