ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'master' of orgmode.org:org-mode

This commit is contained in:
Bastien Guerry 2013-11-11 18:03:38 +01:00
parent 086d502c91 51638aed3e
commit e156163aec
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ob-exp.el
View File

@ -110,12 +110,14 @@ none ---- do not display either code or results upon export
Assume point is at the beginning of block's starting line." Assume point is at the beginning of block's starting line."
(interactive) (interactive)
(unless noninteractive (message "org-babel-exp processing..."))
(save-excursion (save-excursion
(let* ((info (org-babel-get-src-block-info 'light)) (let* ((info (org-babel-get-src-block-info 'light))
(line (org-current-line))
(lang (nth 0 info)) (lang (nth 0 info))
(raw-params (nth 2 info)) hash) (raw-params (nth 2 info)) hash)
;; bail if we couldn't get any info from the block ;; bail if we couldn't get any info from the block
(unless noninteractive
(message "org-babel-exp process %s at line %d..." lang line))
(when info (when info
;; if we're actually going to need the parameters ;; if we're actually going to need the parameters
(when (member (cdr (assoc :exports (nth 2 info))) '("both" "results")) (when (member (cdr (assoc :exports (nth 2 info))) '("both" "results"))