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-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~1295
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=9ca7632c5c0c8a8d4c1eb39a82d6c59bea848898;p=emacs.git

* 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 ddacd2600d0..d2adf71f143 100644
--- 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)