procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Make `dired-do-open' work on more *nix systems

Browse source 
* lisp/dired-aux.el (dired-do-open): Make `dired-do-open' work
on more *nix systems (bug#73004).
This commit is contained in:
Manuel Giraud 2024-09-06 09:47:33 +02:00 committed by Juri Linkov
parent 6d507d586a
commit 5e377f4fcc
1 changed files with 14 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/dired-aux.el
View file

@ -1469,11 +1469,9 @@ system is determined by `shell-command-guess-open'."
(when (and (memq system-type '(windows-nt)) (when (and (memq system-type '(windows-nt))
(equal command "start")) (equal command "start"))
(setq command "open")) (setq command "open"))
(when command (if command
(dolist (file files) (dolist (file files)
(cond (cond
((memq system-type '(gnu/linux))
(call-process command nil 0 nil file))
((memq system-type '(ms-dos)) ((memq system-type '(ms-dos))
(shell-command (concat command " " (shell-quote-argument file)))) (shell-command (concat command " " (shell-quote-argument file))))
((memq system-type '(windows-nt)) ((memq system-type '(windows-nt))
@ -1483,7 +1481,8 @@ system is determined by `shell-command-guess-open'."
((memq system-type '(darwin)) ((memq system-type '(darwin))
(start-process (concat command " " file) nil command file)) (start-process (concat command " " file) nil command file))
(t (t
(error "Open not supported on this system"))))))) (call-process command nil 0 nil file))))
(error "Open not supported on this system"))))
;;; Commands that delete or redisplay part of the dired buffer ;;; Commands that delete or redisplay part of the dired buffer