[elpa] externals/marginalia f04a5b8693: Use when-let to avoid looking up the nil key

[ELPA Syncer]

branch: externals/marginalia
commit f04a5b8693d7ec11ba62008cceeb5a62fab10f1f
Author: Tassilo Horn <tsdh@gnu.org>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Use when-let to avoid looking up the nil key
---
 marginalia.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index eaedef63d6..89026da311 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -1115,8 +1115,8 @@ These annotations are skipped for remote paths."
   (and marginalia--command
        (or (alist-get marginalia--command marginalia-command-categories)
            ;; The command can be an alias, e.g., `recentf' -> `recentf-open'.
-           (alist-get (car (last (function-alias-p marginalia--command)))
-                      marginalia-command-categories))))
+           (when-let ((chain (function-alias-p marginalia--command)))
+             (alist-get (car (last chain)) marginalia-command-categories)))))
 
 (defun marginalia-classify-original-category ()
   "Return original category reported by completion metadata."