Fix #8: Goals with shell special characters fail

Put the goal inside a string to avoid having the shell interpret special characters.
ljos · Mar 26, 2015 · 88690e8 · 88690e8
1 parent c95e3fd
commit 88690e8
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/ob-prolog.el b/ob-prolog.el
@@ -112,7 +112,11 @@ called by `org-babel-execute-src-block'"
 (defun org-babel-prolog-evaluate-external-process (system goal body)
   (let* ((tmp-file (org-babel-temp-file "prolog-"))
          (command (concat (format "%s -q -l %s" system tmp-file)
-                          (when goal (concat " -t " goal)))))
+                          (when goal
+                            (concat " -t \""
+                                    (replace-regexp-in-string
+                                     "\"" "\\\"" goal)
+                                    "\"")))))
     (write-region (org-babel-chomp body) nil tmp-file nil 'no-message)
     (with-temp-buffer
       (call-process-shell-command command nil t)