From db53b9008fde18c30a78a9afa96c47d6b8c603db Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Tue, 7 Sep 2021 18:22:50 -0500 Subject: [PATCH] Change arity of define-repeat-map--map-commands I changed the actual function's arity earlier ... oops. --- define-repeat-map.el | 3 --- 1 file changed, 3 deletions(-) diff --git a/define-repeat-map.el b/define-repeat-map.el index 13ecbaf..1a8466f 100644 --- a/define-repeat-map.el +++ b/define-repeat-map.el @@ -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))))