Merge pull request #680 from toctan/fix-open

Fix prelude-open-with on gnu/linux/freebsd
This commit is contained in:
Bozhidar Batsov 2014-09-08 08:13:08 +03:00
commit b1dab44cfc

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