From 120e621443b1e211077212bbbdcaa15016fe4139 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 19 May 2011 11:05:41 -0600 Subject: [PATCH] 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. --- lisp/ob-exp.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el index ce04f1303..09e85caf2 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. -- 2.11.4.GIT