branch: elpa/org-contrib
commit dc59cdd46be8f6854c5d6e9252263d0e4e62e896
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
org-babel-execute:mathomatic: Drop ((lambda ...) ...) call
* lisp/ob-mathomatic.el (org-babel-execute:mathomatic): Do not use
deprecated lambda call syntax.
---
lisp/ob-mathomatic.el | 21 ++++++++++-----------
1 file changed, 10 insertions(+), 11 deletions(-)
diff --git a/lisp/ob-mathomatic.el b/lisp/ob-mathomatic.el
index 48a15a17fb..744563497c 100644
--- a/lisp/ob-mathomatic.el
+++ b/lisp/ob-mathomatic.el
@@ -94,17 +94,16 @@ called by `org-babel-execute-src-block'."
org-babel-mathomatic-command in-file cmdline)))
(with-temp-file in-file (insert (org-babel-mathomatic-expand body
params)))
(message cmd)
- ((lambda (raw) ;; " | grep -v batch | grep -v 'replaced' | sed
'/^$/d' "
- (mapconcat
- #'identity
- (delq nil
- (mapcar (lambda (line)
- (unless (or (string-match "batch" line)
- (string-match "^rat: replaced .*$"
line)
- (= 0 (length line)))
- line))
- (split-string raw "[\r\n]"))) "\n"))
- (org-babel-eval cmd "")))))
+ ;; " | grep -v batch | grep -v 'replaced' | sed '/^$/d' "
+ (mapconcat
+ #'identity
+ (delq nil
+ (mapcar (lambda (line)
+ (unless (or (string-match "batch" line)
+ (string-match "^rat: replaced .*$" line)
+ (= 0 (length line)))
+ line))
+ (split-string (org-babel-eval cmd "") "[\r\n]")))
"\n"))))
(if (org-babel-mathomatic-graphical-output-file params)
nil
(if (or (member "scalar" result-params)
