diff options
| author | fpi | 2020-08-23 18:43:39 +0200 |
|---|---|---|
| committer | fpi | 2020-08-23 18:47:00 +0200 |
| commit | 1507ef18b85c18a005d9b46071b294d52a2a025d (patch) | |
| tree | cd14038d71306b091b7247c48cc4155c911e607f | |
| parent | Fix: Properly change into directories with spaces (diff) | |
Minor function changes/fixes
| -rw-r--r-- | ob-spice.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/ob-spice.el b/ob-spice.el index 982765e..0e228ad 100644 --- a/ob-spice.el +++ b/ob-spice.el @@ -103,7 +103,7 @@ default-directory or DIR if specified." (setq body (replace-regexp-in-string (format "\\$%s\\([ \.]\\)\\|\\$%s$" (car pair) (car pair)) - (format "%s\1" (cdr pair)) + (format "%s\\1" (cdr pair)) body))) vars) body)) @@ -194,18 +194,18 @@ started." (mapconcat #'org-trim (org-babel-comint-with-output (buffer org-babel-spice-eoe-indicator t eval-body) - (mapcar (lambda (line) - (insert (org-babel-chomp line)) (comint-send-input nil t)) - (list eval-body - eoe-string - "\n"))) + (mapc (lambda (line) + (insert (org-babel-chomp line)) (comint-send-input nil t)) + (list eval-body + eoe-string + "\n"))) "\n") "[\r\n]")) 2) "\n")))) ) (`value (let ((tmp-file (org-babel-temp-file "spice-"))) (org-babel-comint-with-output (buffer org-babel-spice-eoe-indicator t eval-body) - (mapcar + (mapc (lambda (line) (insert (org-babel-chomp line)) (comint-send-input nil t)) (append (list eval-body) |