babel: prevent quoting of strings in shell variables

This commit is contained in:
Dan Davison 2010-02-23 07:31:43 -07:00 committed by Eric Schulte
parent 0afc4633f7
commit a2d94ffc8e
1 changed files with 3 additions and 3 deletions

View File

@ -93,10 +93,10 @@ specifying a var of the same value."
(flet ((deep-string (el)
(if (listp el)
(mapcar #'deep-string el)
(format "%S" el))))
(format "$(cat <<BABEL_TABLE\n%s\nBABEL_TABLE\n)"
(org-babel-sh-var-to-sh el sep))))
(format "$(cat <<BABEL_TABLE\n%s\nBABEL_TABLE\n)"
(orgtbl-to-generic (deep-string var) (list :sep (or sep "\t")))))
(format "%S" var)))
(if (stringp var) (format "%s" var) (format "%S" var))))
(defun org-babel-sh-table-or-results (results)
"If the results look like a table, then convert them into an