Revert last change, shell-command-to-string gives error when called

with c:\Program Files\blah due to space in filename.  Code here needs
reworking more heavily for out-of-the-box Windows working.

1 files changed, 1 insertions, 1 deletions

diff --git a/coq/coq.el b/coq/coq.el
index 80ccb539..a923dcba 100644
--- a/coq/coq.el
+++ b/coq/coq.el
@@ -133,7 +133,7 @@ On Windows you might need something like:
 (setq tags-always-exact t) ; Tags is unusable with Coq library otherwise:
 
 (defun coq-library-directory () 
-  (let ((c (substring (shell-command-to-string (concat coq-prog-name " -where")) 0 -1 )))
+  (let ((c (substring (shell-command-to-string "coqtop -where") 0 -1 )))
     (if (string-match c "not found")
 	  "/usr/local/lib/coq"
       c)))