diff options
| author | Johnson Denen <johnson.denen@gmail.com> | 2017-04-23 22:26:36 -0400 |
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2017-04-23 22:26:36 -0400 |
| commit | 074c525d7b125922df6d47246df8645916dedbc9 (patch) | |
| tree | cf4c5d24d58c02716caaee22770957239b0f2c82 /lisp/mastodon-http.el | |
| parent | c6a4cfc846cd0ecd4eca7bdc02b0856d482bb364 (diff) | |
Make tweaks per package-lint feedback
Diffstat (limited to 'lisp/mastodon-http.el')
| -rw-r--r-- | lisp/mastodon-http.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index b41fccc..4c5d3dc 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -2,6 +2,8 @@ ;; Copyright (C) 2017 Johnson Denen ;; Author: Johnson Denen <johnson.denen@gmail.com> +;; Version: 0.5.1 +;; Package-Requires: ((emacs "24.4")) ;; Homepage: https://github.com/jdenen/mastodon.el ;; This file is not part of GNU Emacs. @@ -50,7 +52,7 @@ (string-match pattern resp) (match-string 0 resp)))) -(defun mastdon-http--status () +(defun mastodon-http--status () "Return HTTP Response Status Code from `mastodon-http--response'." (let* ((status-line (mastodon-http--response-body "^HTTP/1.*$"))) (progn @@ -59,7 +61,7 @@ (defun mastodon-http--triage (response success) (let ((status (with-current-buffer response - (mastdon-http--status)))) + (mastodon-http--status)))) (if (string-prefix-p "2" status) (funcall success) (switch-to-buffer response)))) |