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.
|
;; Add the map to the commands' repeat-map property.
|
||||||
(push `(progn
|
(push `(progn
|
||||||
,@(define-repeat-map--map-commands
|
,@(define-repeat-map--map-commands
|
||||||
`,map
|
|
||||||
(lambda (cmd) `(put ',cmd 'repeat-map ',map))
|
(lambda (cmd) `(put ',cmd 'repeat-map ',map))
|
||||||
(cdr arg)))
|
(cdr arg)))
|
||||||
define-repeat-map--result))
|
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))
|
(lambda (cmd) (define-repeat-map--make-alias cmd map))
|
||||||
(cdr arg))
|
(cdr arg))
|
||||||
,@(define-repeat-map--map-commands
|
,@(define-repeat-map--map-commands
|
||||||
`,map
|
|
||||||
(lambda (cmd)
|
(lambda (cmd)
|
||||||
(let ((alias (define-repeat-map--make-alias cmd map)))
|
(let ((alias (define-repeat-map--make-alias cmd map)))
|
||||||
`(progn
|
`(progn
|
||||||
|
@ -120,7 +118,6 @@ map. However, their invocations keep the `repeat-map' active."
|
||||||
(push `(progn
|
(push `(progn
|
||||||
,@(define-repeat-map--define-keys `,map #'identity arg)
|
,@(define-repeat-map--define-keys `,map #'identity arg)
|
||||||
,@(define-repeat-map--map-commands
|
,@(define-repeat-map--map-commands
|
||||||
`,map
|
|
||||||
(lambda (cmd) `(put ',cmd 'repeat-map ',map))
|
(lambda (cmd) `(put ',cmd 'repeat-map ',map))
|
||||||
arg))
|
arg))
|
||||||
define-repeat-map--result))))
|
define-repeat-map--result))))
|
||||||
|
|
Loading…
Reference in New Issue