Re: Org Babel Bug

[Dan Davison <davison@stats.ox.ac.uk>]

Dan Davison <davison@stats.ox.ac.uk> writes:

> Ian Barton <lists@manor-farm.org> writes:
>
>> I am using Babel to maintein my .emacs file. When I try to publish I
>> am getting a Babel error from one of my org files. The offending
>> section of the org file seems to be:
>>
>> #+BEGIN_SRC emacs-shell
>
> Hi Ian,
>
> I don't think org-babel supports a language "emacs-shell".

Sorry, I think I may have missed the point of your report. org-babel
tangling and export procedures should of course proceed without problems
in the presence of an unknown language block. Could you provide an
example file in which the error occurs? Are you sure that all blocks in
the file are started/terminated correctly? I tried the test file below
containing your emacs-shell block and, for me, it tangles correctly
(just the two emacs lisp blocks), and exports to HTML (all three
blocks), and org-babel-load-file works on it (the two variables have
their values set). Does it work for you?

Dan

--------------------------------------------------------------------
* testblock 1
#+begin_src emacs-lisp
(setq testvar1 'testval1) 
#+end_src

* emacs-shell block
#+BEGIN_SRC emacs-shell
  127.0.0.1 mail.wilkesley.org localhost

  # The following lines are desirable for IPv6 capable hosts
  ::1 ip6-localhost ip6-loopback
  fe00::0 ip6-localnet
  ff00::0 ip6-mcastprefix
  ff02::1 ip6-allnodes
  ff02::2 ip6-allrouters
  ff02::3 ip6-allhosts

#+END_SRC

* test block 2
#+begin_src emacs-lisp
(setq testvar2 'testval2) 
#+end_src
--------------------------------------------------------------------


> I'm curious
> though; what do these lines do?  Do let us know if there is something
> that you feel might be a good feature to add.
>
> Dan
>
>
>>   127.0.0.1 mail.wilkesley.org localhost
>>
>>   # The following lines are desirable for IPv6 capable hosts
>>   ::1 ip6-localhost ip6-loopback
>>   fe00::0 ip6-localnet
>>   ff00::0 ip6-mcastprefix
>>   ff02::1 ip6-allnodes
>>   ff02::2 ip6-allrouters
>>   ff02::3 ip6-allhosts
>>
>> #+END_SRC
>>
>> I am using a recent git checkout of org and GNU Emacs 23.1.50.1
>> (x86_64-pc-linux-gnu, GTK+ Version 2.18.0).
>>
>> The backtrace is:
>>
>> Debugger entered--Lisp error: (error "Unmatched block [bug in
>> org-babel-exp-src-blocks'].")
>>   signal(error ("Unmatched block [bug in `org-babel-exp-src-blocks']."))
>>   error("Unmatched block [bug in `org-babel-exp-src-blocks'].")
>>   (or (and (re-search-backward org-babel-src-block-regexp ... t) (setq
>> progress-marker ...) (org-babel-exp-do-export ... ...))
>> (save-excursion (forward-line 0) (and ... ... ...)) (and
>> (re-search-backward org-block-regexp ... t) (setq progress-marker ...)
>> (match-string 0)) (error "Unmatched block [bug in
>> org-babel-exp-src-blocks']."))
>>   (progn (fset (quote cond-progress-marker) (function* ...)) (or (and
>> ... ... ...) (save-excursion ... ...) (and ... ... ...) (error
>> "Unmatched block [bug in `org-babel-exp-src-blocks'].")))
>>   (unwind-protect (progn (fset ... ...) (or ... ... ... ...)) (if
>> --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
>>   (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...))
>> (unwind-protect (progn ... ...) (if --cl-letf-bound-- ... ...)))
>>   (letf ((... ...)) (or (and ... ... ...) (save-excursion ... ...)
>> (and ... ... ...) (error "Unmatched block [bug in
>> org-babel-exp-src-blocks'].")))
>>   (letf* ((... ...)) (or (and ... ... ...) (save-excursion ... ...)
>> (and ... ... ...) (error "Unmatched block [bug in
>> org-babel-exp-src-blocks'].")))
>>   (flet ((cond-progress-marker nil ...)) (or (and ... ... ...)
>> (save-excursion ... ...) (and ... ... ...) (error "Unmatched block
>> [bug in `org-babel-exp-src-blocks'].")))
>>   org-babel-exp-src-blocks(#("127.0.0.1 mail.wilkesley.org
>> localhost\n\n# The following lines are desirable for IPv6 capable
>> hosts\n::1 ip6-localhost ip6-loopback\nfe00::0 ip6-localnet\nff00::0
>> ip6-mcastprefix\nff02::1 ip6-allnodes\nff02::2 ip6-allrouters\nff02::3
>> ip6-allhosts\n" 0 240 (fontified nil)) #("emacs-shell" 0 11 (fontified
>> nil)))
>>   apply(org-babel-exp-src-blocks #("127.0.0.1 mail.wilkesley.org
>> localhost\n\n# The following lines are desirable for IPv6 capable
>> hosts\n::1 ip6-localhost ip6-loopback\nfe00::0 ip6-localnet\nff00::0
>> ip6-mcastprefix\nff02::1 ip6-allnodes\nff02::2 ip6-allrouters\nff02::3
>> ip6-allhosts\n" 0 240 (fontified nil)) #("emacs-shell" 0 11 (fontified
>> nil)))
>>
>> byte-code("\306\307\211\211\211\211\211\211\211\211.......#.$.%.&\310\311!\211.'\205#
>>
>>
>> _______________________________________________
>> Emacs-orgmode mailing list
>> Please use `Reply All' to send replies to the list.
>> Emacs-orgmode@gnu.org
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode