[Orgmode] Debugger entered--Lisp error: (void-function -mode)

[Sébastien Vauban]

Hello,

When having the following code in any Org page, I now have an error generated.

- If the code is in a =begin_src html= block, no problem.
- If between a =begin_html=, see what I get.

* Some code

#+begin_html
<script type="text/javascript" src="jquery-1.4.4.min.js"></script>
<script type="text/javascript">
$(document).ready(function () {
$('<a class="backtotop" href="#top">^</a>')
    .insertAfter('h2');
$('<a id="top"></a>')
    .prependTo('body');
});
</script>
#+end_html

* Debug info

#+begin_src emacs-lisp
Debugger entered--Lisp error: (void-function -mode)
  -mode()
  funcall(-mode)
  (if (eq major-mode lang-mode) nil (funcall lang-mode))
  (unless (eq major-mode lang-mode) (funcall lang-mode))
  (save-current-buffer (set-buffer (get-buffer-create ...)) (delete-region 
(point-min) (point-max)) (insert string) (unless (eq major-mode lang-mode) 
(funcall lang-mode)) (font-lock-fontify-buffer) (setq pos (point-min)) (while 
(setq next ...) (put-text-property ... ... ... ... org-buffer) (setq pos next)))
  (with-current-buffer (get-buffer-create (concat " org-src-fontification:" 
...)) (delete-region (point-min) (point-max)) (insert string) (unless (eq 
major-mode lang-mode) (funcall lang-mode)) (font-lock-fontify-buffer) (setq pos 
(point-min)) (while (setq next ...) (put-text-property ... ... ... ... 
org-buffer) (setq pos next)))
  (let* ((lang-mode ...) (string ...) (modified ...) (org-buffer ...) pos next) 
(remove-text-properties start end (quote ...)) (with-current-buffer 
(get-buffer-create ...) (delete-region ... ...) (insert string) (unless ... 
...) (font-lock-fontify-buffer) (setq pos ...) (while ... ... ...)) 
(add-text-properties start end (quote ...)) (set-buffer-modified-p modified))
  org-src-font-lock-fontify-block("" 27 287)
#+end_src

I don't understand why. Maybe it will ring a bell to you?

Best regards,
  Seb

-- 
Sébastien Vauban