[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Accepted] [Orgmode] Explicitly mention when a language-mode throws an e
From: |
Carsten Dominik |
Subject: |
[Accepted] [Orgmode] Explicitly mention when a language-mode throws an error |
Date: |
Tue, 14 Sep 2010 14:03:34 +0200 (CEST) |
Patch 263 (http://patchwork.newartisans.com/patch/263/) is now "Accepted".
Maintainer comment: none
This relates to the following submission:
http://mid.gmane.org/%3C87sk1luntu.fsf%40gmail.com%3E
Here is the original message containing the patch:
> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [Orgmode] Explicitly mention when a language-mode throws an error
> Date: Wed, 08 Sep 2010 04:38:05 -0000
> From: Eric Schulte <address@hidden>
> X-Patchwork-Id: 263
> Message-Id: <address@hidden>
> To: Org Mode <address@hidden>
>
> Hi,
>
> The attached patch makes it clear when a language mode has thrown an
> error. This can clear up confusion whether an error is originating from
> Org-mode or form the language-mode in question.
>
> Should this be committed?
>
> Best -- Eric
>
>
> diff --git a/lisp/org-src.el b/lisp/org-src.el
> index d1948cc..233058a 100644
> --- a/lisp/org-src.el
> +++ b/lisp/org-src.el
> @@ -276,7 +276,10 @@ buffer."
> (unless preserve-indentation
> (setq total-nindent (or (org-do-remove-indentation) 0)))
> (let ((org-inhibit-startup t))
> - (funcall lang-f))
> + (condition-case e
> + (funcall lang-f)
> + (error
> + (error "Language mode `%s' fails with: %S" lang-f (nth 1 e)))))
> (set (make-local-variable 'org-edit-src-force-single-line) single)
> (set (make-local-variable 'org-edit-src-from-org-mode) org-mode-p)
> (set (make-local-variable 'org-edit-src-allow-write-back-p)
> allow-write-back-p)
>