feature/services: -when-let => when-let*

This commit is contained in:
Henrik Lissner 2018-01-08 15:25:28 -05:00
parent 3beb1f098a
commit 971e4904fe
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -12,7 +12,7 @@
"Delete service at point. Asks for confirmation."
(interactive "P")
(prodigy-with-refresh
(-when-let (service (prodigy-service-at-pos))
(when-let* ((service (prodigy-service-at-pos)))
(let ((name (plist-get service :name)))
(cond ((or arg
(y-or-n-p (format "Delete '%s' service?" name)))