From 45610d700091a4d77987369ce2bb9063e36afeca Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 13 Aug 2013 01:35:48 +0200 Subject: [PATCH] Fix warning about unused lexical variable --- hypo.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/hypo.el b/hypo.el index 29589af..da7c773 100644 --- a/hypo.el +++ b/hypo.el @@ -37,6 +37,14 @@ (end (1- (search-forward "\n")))) (copy-region-as-kill start end))) +(defun hypo--collect-and-kill (status) + "Collect the returned url and kill the current buffer. + +STATUS is ignored." + (ignore status) + (hypo--collect-url) + (kill-buffer)) + ;;;###autoload (defun hypo-region (start end filename) "Send the region START up to END to hypo as FILENAME." @@ -50,7 +58,7 @@ (let ((url-request-data (buffer-substring-no-properties start end)) (url-request-method "PUT")) (url-retrieve (concat "https://ryuslash.org/hypo/" filename) - (lambda (status) (hypo--collect-url) (kill-buffer))))) + #'hypo--collect-and-kill))) ;;;###autoload (defun hypo-buffer (buffer filename)