Re: org-src.el begin_src/end_src fontification may have been broken recently

[Jambunathan K]

I don't think there is a "colon" in begin_src directive.

You can install a babel block with either C-c C-v C-d or by typing <s at
the beginning of an empty line in an orgmode buffer.

Sorry if I misunderstood the mail.

Ted Zlatanov <address@hidden> writes:

> Recently (I haven't been able to find the commit that did it) org-src.el
> fontification broke.  I get an error that ":-mode" could not be
> executed.  I didn't open a bug because I'm not sure if it's something
> wrong with my setup; it's hard to replicate this error with -q because
> it involves org-mode and Gnus.  The parent message to this one causes
> the error (see at end for actual code block); I fixed it by wrapping the
> `org-src-font-lock-fontify-block' funcall in a `condition-case' but
> that's not fixing the problem itself.
>
> (defun org-src-font-lock-fontify-block (lang start end)
> ...
>       (condition-case catcher
>           (unless (eq major-mode lang-mode) (funcall lang-mode))
>         (error (message "Could not run %s, sorry" lang-mode)))
> ...
>
> Produces:
>
> Could not run :-mode mode, sorry [2 times]
>
> This error happens in Gnus and Emacs as of this morning.  The code block
> below is not the only place it happens.
>
> If I try to call `debug' in `org-src-font-lock-fontify-block' I get:
>
> font-lock-mode-internal: Lisp nesting exceeds `max-lisp-eval-depth'
>
> so I couldn't track the calls that are causing the error.
>
> Let me know how I can determine why this is causing an error for me, and
> if it's an actual bug.
>
> Thanks
> Ted
>
> On Mon, 06 Jun 2011 12:00:27 +0200 Julien Danjou <address@hidden> wrote: 
>
> #+begin_src: emacs-lisp
> (defun make-special-frame ()
>   (let* ((width 200)
>        (height 500)
>        (ff (make-frame `((visibility . nil)
>                          (width . 20)))))
>     (x-change-window-property "_NET_WM_STRUT_PARTIAL" `(,width 0 0 0 0 
> ,height 0 0 0 0 0 0) ff
>                             "CARDINAL" 32 t)
>     (x-change-window-property "_NET_WM_WINDOW_TYPE" 
> '("_NET_WM_WINDOW_TYPE_DOCK") ff
>                             "ATOM" 32 t)
>     (make-frame-visible ff)))
> #+end_src

--