org-babel and Xemacs incompatibilities

["Dr. Volker Zell" <dr.volker.zell@oracle.com>]

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