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

Signal wrong arguments instead of erroring

This commit is contained in:
Case Duckworth 2021-09-07 18:24:37 -05:00
parent db53b9008f
commit 782d8c8c78
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
define-repeat-map.el
View File

@ -39,7 +39,7 @@
(defun define-repeat-map--define-keys (map fn args) (defun define-repeat-map--define-keys (map fn args)
"Internal. Map `define-key' in MAP over ARGS, transorming them with FN." "Internal. Map `define-key' in MAP over ARGS, transorming them with FN."
(unless (zerop (mod (length args) 2)) (unless (zerop (mod (length args) 2))
(error "Wrong number of args")) (signal 'wrong-number-of-arguments (length args)))
(let (res) (let (res)
(while args (while args
(let ((key (pop args)) (let ((key (pop args))