diff options
| author | Holger Dürer <me@hdurer.net> | 2017-05-02 20:39:09 +0100 |
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2017-05-05 15:01:50 -0400 |
| commit | 4d0bd43c0ede0159c0f0130a5565ea5a6511997a (patch) | |
| tree | 271f9ccfc077eb45885a05bf6a40ebb8e60c9565 /lisp/mastodon-http.el | |
| parent | 9c8df73c253640f54e89c0c170336a9993290e6c (diff) | |
Clean up use of progn.
- Lambda, defun, let, etc. all have an implicit progn.
- A progn with a single form is identical to that single form.
Diffstat (limited to 'lisp/mastodon-http.el')
| -rw-r--r-- | lisp/mastodon-http.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index 2b3f7dc..eb70a88 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -48,16 +48,14 @@ (defun mastodon-http--response-body (pattern) "Return substring matching PATTERN from `mastodon-http--response'." (let ((resp (mastodon-http--response))) - (progn - (string-match pattern resp) - (match-string 0 resp)))) + (string-match pattern resp) + (match-string 0 resp))) (defun mastodon-http--status () "Return HTTP Response Status Code from `mastodon-http--response'." (let* ((status-line (mastodon-http--response-body "^HTTP/1.*$"))) - (progn - (string-match "[0-9][0-9][0-9]" status-line) - (match-string 0 status-line)))) + (string-match "[0-9][0-9][0-9]" status-line) + (match-string 0 status-line))) (defun mastodon-http--triage (response success) "Determine if RESPONSE was successful. Call SUCCESS if successful. |