From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: [PATCH] [Babel] Add line number to "Processing code block..." message Date: Thu, 07 Nov 2013 16:31:29 +0100 Message-ID: <86li10mdny.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hello, Here is a small patch to improve the messages displayed by Org Babel when processing code blocks: now, you get the line number added to the output, so that you can easily find afterward which block had problems, if such things were reported in the *Messages* buffer. Best regards, Seb >From 9e8b74d881575318ff480f084ac10aea82696904 Mon Sep 17 00:00:00 2001 From: Sebastien Vauban Date: Thu, 7 Nov 2013 16:24:53 +0100 Subject: [PATCH] Improve "Processing Org code block" message * ob-exp.el (org-babel-exp-src-block): Improve message by adding line number. --- 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")) -- 1.7.9 -- Sebastien Vauban