Fix bin/doom misinterpreting wrong-num-of-args errors

This commit is contained in:
Henrik Lissner 2019-07-29 20:58:02 +02:00
parent c32244ad4e
commit 4e305dd2ab
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -112,18 +112,15 @@ If SHOW-HELP is non-nil, show the documentation for said dispatcher."
(let ((start-time (current-time))) (let ((start-time (current-time)))
(run-hooks 'doom-cli-pre-execute-hook) (run-hooks 'doom-cli-pre-execute-hook)
(unwind-protect (unwind-protect
(condition-case e (when-let (ret (apply fn args))
(when-let (ret (apply fn args)) (print!
(print! "\n%s"
"\n%s" (success "Finished! (%.4fs)"
(success "Finished! (%.4fs)" (float-time
(float-time (time-subtract (current-time)
(time-subtract (current-time) start-time))))
start-time)))) (run-hooks 'doom-cli-post-execute-hook)
(run-hooks 'doom-cli-post-execute-hook) ret)
ret)
('wrong-number-of-arguments
(user-error "I don't understand 'doom %s %s'\n\nRun 'doom help' to see what I do understand." cmd (string-join args " "))))
(run-hooks 'doom-cli-post-error-execute-hook)))))) (run-hooks 'doom-cli-post-error-execute-hook))))))
(defmacro defcligroup! (name docstring &rest body) (defmacro defcligroup! (name docstring &rest body)