quote bashslash in a shell command

[William Xu <william.xwl@gmail.com>]

The shell command is:
  echo foo.bar | sed -e 's/\..*//'

which will produce "foo" on bash.

If i try to pass it to shell-command-to-string:
  (shell-command-to-string "echo foo.bar | sed -e 's/\..*//'")
	=> "\n"

Then i find i need to quote the backslash in emacs once more:
  (shell-command-to-string "echo foo.bar | sed -e 's/\\..*//'")
	=> "foo\n"

Is there a function or other way that can handle this kind of backslash
quoting automatically?


-William