magical/bbj
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

remove redundant let* in bbj-sane-value

Browse Source
This commit is contained in:
Blake DeMarcy 2017-04-04 22:17:16 -05:00
parent 03939fdca5
commit b99c7a1f0f
2 changed files with 6 additions and 10 deletions
clients/emacs
bbj.el
documentation
VALIDATION.md

8
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))

8
documentation/VALIDATION.md

@ -84,11 +84,9 @@ for rejection is displayed clearly to the user and input window is restored.
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))