Re: [BUG] #+begin_src wo. language blocks XHTML export

[Sebastian Rose <sebastian_rose@gmx.de>]

David Maus <dmaus@ictsoc.de> writes:
> Sebastian Rose wrote:
>>[1  <text/plain (7bit)>]
>
>>I'm reworking worg/org-contrib/org-protocol.org and could export the
>>results to XHTML.
>
>
>>The reason was line 523.
>
>>Line 523 was:
>
>>   #+begin_src
>
>>without a language added!
>>Line 530 was
>
>>   #+end_src
>
>
>>Changing `_src' to `_example' in both lines makes it possible to export
>>to XHTML again.
>
> I suppose a source block without languag should be considered an
> error, shouldn't it?  Maybe Org should fail more gracefully when it
> encounters such a block during export?


The current behaviour is new.  The file I tried to export worked for
quite a while locally and on orgmode.org.  The fallback was to behave
like `#+begin_example', I believe.


It can be considered an error, since the docs say: 

  "...This is done with the ‘src’ block, where you also need to specify
  the name of the major mode that should be used to fontify the
  example..."


But think of batch export.

But I'd like to see some kind of error message, or better be asked for
the language (i.e. a major-mode).  The mode could be inserted after the
`#+begin_src'. 



Insteat, I get this backtrace:

Debugger entered--Lisp error: (wrong-type-argument consp nil)
  setcar(nil nil)
  (setf (nth 1 info) (if (and ... ...) (org-babel-expand-noweb-references info ...) (nth 1 info)))
  (let* ((info ...) (params ...)) (setf (nth 1 info) (if ... ... ...)) (org-babel-exp-do-export info (quote block)))
  (save-excursion (goto-char (match-beginning 0)) (let* (... ...) (setf ... ...) (org-babel-exp-do-export info ...)))
  org-babel-exp-src-blocks(#("(let ((a \"b\")\n       c d)\n (message \"a: %S\" a))" 0 14 (fontified t font-lock-fontified t) 14 26 (fontified t font-lock-fontified t) 26 47 (fontified t font-lock-fontified t)))
  apply(org-babel-exp-src-blocks #("(let ((a \"b\")\n       c d)\n (message \"a: %S\" a))" 0 14 (fontified t font-lock-fontified t) 14 26 (fontified t font-lock-fontified t) 26 47 (fontified t font-lock-fontified t)) nil)
  (if (memq type org-export-blocks-witheld) "" (apply func body headers))
  (progn (if (memq type org-export-blocks-witheld) "" (apply func body headers)))
  (unwind-protect (progn (if ... "" ...)) (set-match-data save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...)))
  (save-match-data (if (memq type org-export-blocks-witheld) "" (apply func body headers)))
  (let ((replacement ...)) (when replacement (replace-match replacement t t) (unless preserve-indent ...)))
  (progn (let (...) (when replacement ... ...)))

  etc.pp. 49 more lines...



Not genuin useful.




Best wishes

   Sebastian