feature/services: -when-let => when-let*
This commit is contained in:
parent
3beb1f098a
commit
971e4904fe
1 changed files with 1 additions and 1 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue