Kill buffer from hypo-delete-last
This commit is contained in:
parent
f8d7a0e267
commit
f0adc16a2c
1 changed files with 1 additions and 1 deletions
2
hypo.el
2
hypo.el
|
@ -121,7 +121,7 @@ STATUS is ignored."
|
||||||
(unless hypo--last-post (error "Nothing posted this session"))
|
(unless hypo--last-post (error "Nothing posted this session"))
|
||||||
(let ((url-request-method "DELETE")
|
(let ((url-request-method "DELETE")
|
||||||
(url (format "%s/%s" hypo-instance-url hypo--last-post)))
|
(url (format "%s/%s" hypo-instance-url hypo--last-post)))
|
||||||
(url-retrieve url #'ignore)
|
(url-retrieve url (lambda (status) (ignore status) (kill-buffer)))
|
||||||
(setq hypo--last-post nil)
|
(setq hypo--last-post nil)
|
||||||
(message "Deleted %s" url)))
|
(message "Deleted %s" url)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue