From: Juri Linkov <juri@linkov.net>
Date: Thu, 30 May 2024 06:44:03 +0000 (+0300)
Subject: * lisp/dired-aux.el (shell-command-guess-xdg): Check nil xdg-mime (bug#71270).
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b689424e5459a29e596be633d3b6b2f8da93f773;p=emacs.git

* 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 b6f77992c76..66763d41593 100644
--- 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)