Fix prelude-open-with on gnu/linux/freebsd
This commit is contained in:
parent
10011d66d0
commit
108adcdbc3
1 changed files with 1 additions and 1 deletions
|
@ -48,7 +48,7 @@ With a prefix ARG always prompt for command to use."
|
||||||
buffer-file-name))
|
buffer-file-name))
|
||||||
(open (pcase system-type
|
(open (pcase system-type
|
||||||
(`darwin "open")
|
(`darwin "open")
|
||||||
((pred (string-prefix-p "gnu")) "xdg-open")))
|
((or `gnu `gnu/linux `gnu/kfreebsd) "xdg-open")))
|
||||||
(program (if (or arg (not open))
|
(program (if (or arg (not open))
|
||||||
(read-shell-command "Open current file with: ")
|
(read-shell-command "Open current file with: ")
|
||||||
open)))
|
open)))
|
||||||
|
|
Loading…
Reference in a new issue