[Orgmode] org-babel and Xemacs incompatibilities

[Dr. Volker Zell]

Hi

When trying to do Source Code Execution with C-c C-c in Xeamcs with 
org-babel-6.35i
I get:

  args-out-of-range #<buffer "ora.org"> 0 0


  
Debugger entered--Lisp error: (args-out-of-range #<buffer "ora.org"> 0 0)
  map-extents(#<compiled-function (extent ignored) "...(14)" [buffer-or-string 
extent end start remove-text-properties extent-property text-prop nil] 6> nil 0 
0 nil nil text-prop)
  set-text-properties(0 0 nil nil)
  org-babel-clean-text-properties(nil)
  org-babel-result-hash(("ruby" "\"This file was last evaluated on 
#{Date.today}\"\n" ((:cache . "no") (:comments . "") (:exports . "code") 
(:noweb . "no") (:results . "replace") (:session . "none") (:shebang . "") 
(:tangle . "")) ""))
  (let* ((info ...) (lang ...) (params ...) (new-hash ...) (old-hash ...) (body 
...) (result-params ...) (result-type ...) (cmd ...) (dir ...) 
(default-directory ...) (call-process-region-original ...) result) 
(unwind-protect (flet ... ... ...) (setq call-process-region ...)))
  org-babel-execute-src-block(nil ("ruby" "\"This file was last evaluated on 
#{Date.today}\"\n" ((:cache . "no") (:comments . "") (:exports . "code") 
(:noweb . "no") (:results . "replace") (:session . "none") (:shebang . "") 
(:tangle . "")) ""))
  (progn (org-babel-execute-src-block current-prefix-arg info) t)
  (if info (progn (org-babel-execute-src-block current-prefix-arg info) t) nil)
  (let ((info ...)) (if info (progn ... t) nil))
  org-babel-execute-src-block-maybe()
  run-hook-with-args-until-success(org-babel-execute-src-block-maybe)
  (cond ((or ... org-occur-highlights org-latex-fragment-image-overlays) (and 
... ...) (org-remove-occur-highlights) 
(org-remove-latex-fragment-image-overlays) (message "Temporary 
highlights/overlays removed from current buffer")) ((and ... ...) (funcall 
org-finish-function)) ((run-hook-with-args-until-success ...)) ((or ... ...) 
(call-interactively ...)) ((org-on-target-p) (call-interactively ...)) ((and 
... ...) (call-interactively ...)) ((org-on-heading-p) (call-interactively 
...)) ((org-at-table\.el-p) (message "Use C-c ' to edit table.el tables")) 
((org-at-table-p) (org-table-maybe-eval-formula) (if arg ... ...) 
(call-interactively ...)) ((or ... ...) (call-interactively ...)) 
((org-at-item-checkbox-p) (call-interactively ...)) ((org-at-item-p) (if arg 
... ...)) ((save-excursion ... ...) (beginning-of-line 1) (save-excursion ...)) 
((save-excursion ... ...) (cond ... ...)) ((org-clock-update-time-maybe)) (t 
(error "C-c C-c can do nothing useful at this location")))
  (let ((org-enable-table-editor t)) (cond (... ... ... ... ...) (... ...) 
(...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ...) (... 
...) (... ...) (... ...) (... ... ...) (... ...) (...) (t ...)))
  org-ctrl-c-ctrl-c(nil)
  call-interactively(org-ctrl-c-ctrl-c)


Ciao
  Volker