From 4d0bd43c0ede0159c0f0130a5565ea5a6511997a Mon Sep 17 00:00:00 2001 From: Holger Dürer Date: Tue, 2 May 2017 20:39:09 +0100 Subject: 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. --- lisp/mastodon-http.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'lisp/mastodon-http.el') 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. -- cgit v1.2.3