summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfpi2020-08-23 18:43:39 +0200
committerfpi2020-08-23 18:47:00 +0200
commit1507ef18b85c18a005d9b46071b294d52a2a025d (patch)
treecd14038d71306b091b7247c48cc4155c911e607f
parentFix: Properly change into directories with spaces (diff)
Minor function changes/fixes
-rw-r--r--ob-spice.el14
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)