diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2011-05-19 11:05:41 -0600 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2011-05-19 11:05:41 -0600 |
| commit | 120e621443b1e211077212bbbdcaa15016fe4139 (patch) | |
| tree | cc5be7d74b069df9420d94170415b0fe8bb64129 | |
| parent | 72c154e38e526b5f8bb5f200fb31bc6fec145ba6 (diff) | |
| download | org-mode-120e621443b1e211077212bbbdcaa15016fe4139.tar.gz | |
remove when-let which isn't a real Emacs macro
* lisp/ob-exp.el (org-babel-exp-code): Remove usage of a macro which
is defined locally on my system, but not globally in Emacs.
| -rw-r--r-- | lisp/ob-exp.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el index ce04f13..09e85ca 100644 --- a/lisp/ob-exp.el +++ b/lisp/ob-exp.el @@ -245,10 +245,11 @@ The function respects the value of the :exports header argument." (defun org-babel-exp-code (info) "Return the original code block formatted for export." - (org-fill-template "#+BEGIN_SRC %lang%flags\n%body\n#+END_SRC\n" - `(("lang" . ,(nth 0 info)) - ("flags" . ,(when-let (f (nth 3 info)) (concat " " f))) - ("body" . ,(nth 1 info))))) + (org-fill-template + "#+BEGIN_SRC %lang%flags\n%body\n#+END_SRC\n" + `(("lang" . ,(nth 0 info)) + ("flags" . ,((lambda (f) (when f (concat " " f))) (nth 3 info))) + ("body" . ,(nth 1 info))))) (defun org-babel-exp-results (info type &optional silent hash) "Evaluate and return the results of the current code block for export. |