mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-21 06:55:35 +00:00
Code

remove when-let which isn't a real Emacs macro

Browse Source 
* 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.
This commit is contained in:
Eric Schulte 2011-05-19 11:05:41 -06:00
parent 72c154e38e
commit 120e621443
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ob-exp.el
View File

@ -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.