diff options
author | Sebastien Vauban <sva-news@mygooglest.com> | 2013-11-07 16:24:53 +0100 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-11-11 09:32:09 -0700 |
commit | cd35ad9314e3b2f06542c98c939cf6580b9e6eb5 (patch) | |
tree | 225d91dc4541ef3ef99785bc96490f3acbb3c960 | |
parent | f1016634895b828d79f6ca09e4d9f75ad00261dd (diff) | |
download | org-mode-cd35ad9314e3b2f06542c98c939cf6580b9e6eb5.tar.gz |
Improve "Processing Org code block" message
* ob-exp.el (org-babel-exp-src-block): Improve message by adding line number.
-rw-r--r-- | lisp/ob-exp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el index c8479e3..3874338 100644 --- a/lisp/ob-exp.el +++ b/lisp/ob-exp.el @@ -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." (interactive) - (unless noninteractive (message "org-babel-exp processing...")) (save-excursion (let* ((info (org-babel-get-src-block-info 'light)) + (line (org-current-line)) (lang (nth 0 info)) (raw-params (nth 2 info)) hash) ;; bail if we couldn't get any info from the block + (unless noninteractive + (message "Processing %s code block at line %d..." lang line)) (when info ;; if we're actually going to need the parameters (when (member (cdr (assoc :exports (nth 2 info))) '("both" "results")) |