From 45610d700091a4d77987369ce2bb9063e36afeca Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 13 Aug 2013 01:35:48 +0200
Subject: 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)
-- 
cgit v1.2.3-54-g00ecf