From d8e59996f8a8dccd564cb27e5a2a56f83cb2db6f Mon Sep 17 00:00:00 2001 From: Manuel Giraud Date: Fri, 6 Sep 2024 09:47:33 +0200 Subject: [PATCH] Make `dired-do-open' work on more *nix systems * lisp/dired-aux.el (dired-do-open): Make `dired-do-open' work on more *nix systems. --- lisp/dired-aux.el | 29 ++++++++++++++--------------- 1 file changed, 14 insertions(+), 15 deletions(-) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index cd948bd7dd9..1d0e29b8782 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -1469,21 +1469,20 @@ dired-do-open (when (and (memq system-type '(windows-nt)) (equal command "start")) (setq command "open")) - (when command - (dolist (file files) - (cond - ((memq system-type '(gnu/linux)) - (call-process command nil 0 nil file)) - ((memq system-type '(ms-dos)) - (shell-command (concat command " " (shell-quote-argument file)))) - ((memq system-type '(windows-nt)) - (w32-shell-execute command (convert-standard-filename file))) - ((memq system-type '(cygwin)) - (call-process command nil nil nil file)) - ((memq system-type '(darwin)) - (start-process (concat command " " file) nil command file)) - (t - (error "Open not supported on this system"))))))) + (if command + (dolist (file files) + (cond + ((memq system-type '(ms-dos)) + (shell-command (concat command " " (shell-quote-argument file)))) + ((memq system-type '(windows-nt)) + (w32-shell-execute command (convert-standard-filename file))) + ((memq system-type '(cygwin)) + (call-process command nil nil nil file)) + ((memq system-type '(darwin)) + (start-process (concat command " " file) nil command file)) + (t + (call-process command nil 0 nil file)))) + (error "Open not supported on this system")))) ;;; Commands that delete or redisplay part of the dired buffer -- 2.46.0