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

(cherry picked from commit 9ca7632c5c0c8a8d4c1eb39a82d6c59bea848898)

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index b6f77992c76d1790628aee5b57fec0252c588c64..66763d41593cdec49e6ff797ba3d67dd941144b2 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1402,7 +1402,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)