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

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)))