diff options
| author | Blake DeMarcy <ofunknowndescent@gmail.com> | 2017-04-04 22:17:16 -0500 |
|---|---|---|
| committer | Blake DeMarcy <ofunknowndescent@gmail.com> | 2017-04-04 22:17:16 -0500 |
| commit | b99c7a1f0f41ff96999b03fba36bc7f3b6d9f6df (patch) | |
| tree | 56794f08364b56f3adcdd6f914dc110c90a9c2a1 /clients/emacs/bbj.el | |
| parent | 03939fdca5808e142799a4d76efe3ccf4a6b63f9 (diff) | |
| download | bbj-b99c7a1f0f41ff96999b03fba36bc7f3b6d9f6df.tar.gz | |
remove redundant let* in bbj-sane-value
Diffstat (limited to 'clients/emacs/bbj.el')
| -rw-r--r-- | clients/emacs/bbj.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/clients/emacs/bbj.el b/clients/emacs/bbj.el index ee6572c..2485421 100644 --- a/clients/emacs/bbj.el +++ b/clients/emacs/bbj.el @@ -158,11 +158,9 @@ is the only thing returned (not the usermap or error field)" passed to the server to check it for validity before the user is allowed to continue. Will recurse until the input is valid, then it is returned." - (let (response value) - (setq value (read-from-minibuffer prompt) - response (bbj-request! 'db_sanity_check - 'value value - 'key key)) + (let* ((value (read-from-minibuffer prompt)) + (response (bbj-request! 'db_sanity_check + 'value value 'key key))) (if (alist-get 'bool response) value (message (alist-get 'description response)) |