ryuslash/hypo-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix warning about unused lexical variable

Browse source
This commit is contained in:
Tom Willemse 2013-08-13 01:35:48 +02:00
parent 96e42a27f3
commit 45610d7000
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
hypo.el
View file

@ -37,6 +37,14 @@
(end (1- (search-forward "\n")))) (end (1- (search-forward "\n"))))
(copy-region-as-kill start end))) (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 ;;;###autoload
(defun hypo-region (start end filename) (defun hypo-region (start end filename)
"Send the region START up to END to hypo as 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)) (let ((url-request-data (buffer-substring-no-properties start end))
(url-request-method "PUT")) (url-request-method "PUT"))
(url-retrieve (concat "https://ryuslash.org/hypo/" filename) (url-retrieve (concat "https://ryuslash.org/hypo/" filename)
(lambda (status) (hypo--collect-url) (kill-buffer))))) #'hypo--collect-and-kill)))
;;;###autoload ;;;###autoload
(defun hypo-buffer (buffer filename) (defun hypo-buffer (buffer filename)