* lisp/dired-aux.el (shell-command-guess-xdg): Check nil xdg-mime (bug#71270).

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index ddacd2600d06927f4b0cd4ea81fa7b12523c3533..d2adf71f1431d748d69ec80ca4132241720c8db3 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1413,7 +1413,8 @@ This excludes `dired-guess-shell-alist-user' and
                       (shell-command-to-string
                        (concat "xdg-mime query filetype "
                                (shell-quote-argument (car files)))))))
-         (xdg-mime-apps (unless (string-empty-p xdg-mime)
+         (xdg-mime-apps (unless (or (null xdg-mime)
+                                    (string-empty-p xdg-mime))
                           (xdg-mime-apps xdg-mime)))
          (xdg-commands
           (mapcar (lambda (desktop)