Re: [PATCH] Skip source block fontification when the language is not defined

[Bernt Hansen <bernt@norang.ca>]

Dan Davison <dandavison7@gmail.com> writes:

> Bernt Hansen <bernt@norang.ca> writes:
>
>> I'm confused about _why_ I'm getting these errors though - I was
>> expecting fontification only to apply to #+begin_src blocks and I'm only
>> using a few languages in that document (sh, org, emacs-lisp, ditaa, and dot).
>>
>> Unless it's picking up on the begin_src in the following text
>
> Hi Bernt,
>
> I was wondering about the same thing.
>
> How about hacking the org-src-font-lock-fontify-block function so that
> it throws an error with a helpful message when the language string is
> unrecognised? I just tried this on your document with C-c C-e h and it
> didn't throw anything, but maybe in your setup it will? (Check the
> *Messages* buffer, it may be that font-lock handles the error). I've
> prepended the below with "$ " to stop patchwork from grabbing it.
>
> $ diff --git a/lisp/org-src.el b/lisp/org-src.el
> $ index f55e292..0d796b4 100644
> $ --- a/lisp/org-src.el
> $ +++ b/lisp/org-src.el
> $ @@ -781,7 +781,9 @@ fontification of code blocks see `org-src-fontify-block' and
> $  	  (add-text-properties
> $  	   start end
> $  	   '(font-lock-fontified t fontified t font-lock-multiline t))
> $ -	  (set-buffer-modified-p modified)))))
> $ +	  (set-buffer-modified-p modified))
> $ +      (error "Unrecognised language: %s line: %d"
> $ +	       lang (line-number-at-pos (point))))))
>
> Dan

,----[ messages buffer ]
| Fontifying  org-src-fontification:emacs-lisp-mode... (regexps.....................)
| if: Unrecognised language:  line: 1210
| Ispell process killed
| Starting new Ispell process [british] ...
`----

This chokes on the #+end_example line of this block:

,----
| 
| *Clock history selection buffer for C-u C-c C-x C-i*
| #+begin_example
|   Default Task
|   [d] norang          Organization                          <-- Task B
|   The task interrupted by starting the last one
|   [i] norang          Organization                          <-- Task B
|   Current Clocking Task
|   [c] org             NEXT Document my use of org-mode      <-- Task A
|   Recent Tasks
|   [1] org             NEXT Document my use of org-mode      <-- Task A
|   [2] norang          Organization                          <-- Task B
|   ...
|   [Z] org             DONE Fix default section links        <-- 35 clock task entries ago
| #+end_example
`----

The last line '#+end_example' is line 1210.

Huh?

-Bernt