; * lisp/dired-aux.el (shell-command-guess-open): Fix :type (bug#74720).

(cherry picked from commit d84c5c24b58b124f79b2a61e58e46c501d8ec52a)

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 703ab553c687fe23c120a28c6ac42d440e6423e2..11903a97b535aa0275811360bbf577172c8aed0b 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1429,7 +1429,7 @@ This excludes `dired-guess-shell-alist-user' and
    ((executable-find "run-mailcap")
     "run-mailcap"))
   "A shell command to open a file externally."
-  :type 'string
+  :type '(choice (const :tag "None" nil) string)
   :group 'dired
   :version "30.1")