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 (bug#73004).
This commit is contained in:
parent
6d507d586a
commit
5e377f4fcc
1 changed files with 14 additions and 15 deletions
|
@ -1469,11 +1469,9 @@ system is determined by `shell-command-guess-open'."
|
|||
(when (and (memq system-type '(windows-nt))
|
||||
(equal command "start"))
|
||||
(setq command "open"))
|
||||
(when command
|
||||
(if 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))
|
||||
|
@ -1483,7 +1481,8 @@ system is determined by `shell-command-guess-open'."
|
|||
((memq system-type '(darwin))
|
||||
(start-process (concat command " " file) nil command file))
|
||||
(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
|
||||
|
|
Loading…
Reference in a new issue