Signal wrong arguments instead of erroring
This commit is contained in:
parent
db53b9008f
commit
782d8c8c78
|
@ -39,7 +39,7 @@
|
|||
(defun define-repeat-map--define-keys (map fn args)
|
||||
"Internal. Map `define-key' in MAP over ARGS, transorming them with FN."
|
||||
(unless (zerop (mod (length args) 2))
|
||||
(error "Wrong number of args"))
|
||||
(signal 'wrong-number-of-arguments (length args)))
|
||||
(let (res)
|
||||
(while args
|
||||
(let ((key (pop args))
|
||||
|
|
Loading…
Reference in New Issue