Fix prelude-open-with on gnu/linux/freebsd

This commit is contained in:
toctan 2014-09-08 10:56:35 +08:00
parent 10011d66d0
commit 108adcdbc3

View file

@ -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)))