org-babel and Xemacs incompatibilities

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

Re: org-babel and Xemacs incompatibilities

[Eric Schulte]

Hi,

A patch has just been applied to the org-mode repository which should
fix this issue.

Please let me know if the issue remains.

Best -- Eric

"Dr. Volker Zell" <dr.volker.zell@oracle.com> writes:

> 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
>
> _______________________________________________
> 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

Re: org-babel and Xemacs incompatibilities

[Dr. Volker Zell]

>>>>> Eric Schulte writes:

    > Hi,
    > A patch has just been applied to the org-mode repository which should
    > fix this issue.

    > Please let me know if the issue remains.

This issue is gone now.but two others show up when executing code blocks with C-c C-c
in xemacs-21.4.22:

 Symbol's value as variable is void: small-temporary-file-directory

which can be solved by copying the definition from files.el from emacs-23.2

and

 Symbol's function definition is void: line-number-at-pos

which can be solved by downloading linum.el from

 o http://stud4.tuwien.ac.at/~e0225855/linum/linum.html

Ciao
  Volker
  

Re: org-babel and Xemacs incompatibilities

[Dr. Volker Zell]

>>>>> Volker Zell writes:

>>>>> Eric Schulte writes:
    >> Hi,
    >> A patch has just been applied to the org-mode repository which should
    >> fix this issue.

    >> Please let me know if the issue remains.

    > This issue is gone now.but two others show up when executing code blocks with C-c C-c
    > in xemacs-21.4.22:

    >  Symbol's value as variable is void: small-temporary-file-directory

    > which can be solved by copying the definition from files.el from emacs-23.2

    > and

    >  Symbol's function definition is void: line-number-at-pos

    > which can be solved by downloading linum.el from

    >  o http://stud4.tuwien.ac.at/~e0225855/linum/linum.html

And two more

 o Symbol's function definition is void: assoc-default when trying to display an image

  (assoc-default dlink apps-dlink (quote string-match))
  (let ((match ...)) (if match (progn ... match) (progn ... nil)))
  (or (and remp (cdr ...)) (and dirp (cdr ...)) (let (...) (if match ... ...)) (assoc-default dfile (org-apps-regexp-alist apps a-m-a-p) (quote string-match)) (cdr (assoc ext apps)) (cdr (assoc t apps)))
  (setq cmd (or (and remp ...) (and dirp ...) (let ... ...) (assoc-default dfile ... ...) (cdr ...) (cdr ...)))
  (cond ((member in-emacs ...) (setq cmd ...)) (in-emacs (setq cmd ...)) (t (setq cmd ...)))
  (let* ((file ...) (file-apps ...) (apps ...) (apps-dlink ...) (remp ...) (dirp ...) (file ...) (a-m-a-p ...) (dfile ...) (link ...) (dlink ...) (old-buffer ...) (old-pos ...) (old-mode major-mode) ext cmd link-match-data) (if (string-match "^.*\\.\\([a-zA-Z0-9]+\\.gz\\)$" dfile) (setq ext ...) (if ... ...)) (cond (... ...) (in-emacs ...) (t ...)) (when (eq cmd ...) (setq cmd ...)) (when (eq cmd ...) (setq cmd ...)) (when (eq cmd ...) (require ...) (mailcap-parse-mailcaps) (let* ... ...)) (if (and ... ... ...) (error "No such file: %s" file)) (cond (... ... ... ... ...) (... ... ... ...) (... ...) (t ...)) (and (org-mode-p) (eq old-mode ...) (or ... ...) (org-mark-ring-push old-pos old-buffer)))
  org-open-file("communication.png" nil nil nil)
  (if (string-match "[*?{]" (file-name-nondirectory path)) (dired path) (org-open-file path in-emacs line search))
  (cond ((assoc type org-link-protocols) (funcall ... path)) ((equal type "mailto") (let ... ... ... ...)) ((member type ...) (browse-url ...)) ((string= type "doi") (browse-url ...)) ((member type ...) (browse-url ...)) ((string= type "tags") (org-tags-view in-emacs path)) ((string= type "tree-match") (org-occur ...)) ((string= type "file") (if ... ... ...) (if ... ... ...)) ((string= type "news") (require ...) (org-gnus-follow-link path)) ((string= type "shell") (let ... ...)) ((string= type "elisp") (let ... ...)) ((and ... ...)) ((string= type "thisfile") (if in-emacs ... ...) (let ... ...)) (t (browse-url-at-point)))
  (save-current-buffer (set-buffer (or reference-buffer ...)) (if (string-match " +\\'" path) (setq path ...)) (if (and org-link-translation-function ...) (let ... ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (...) (... ... ...) (t ...)))
  (with-current-buffer (or reference-buffer (current-buffer)) (if (string-match " +\\'" path) (setq path ...)) (if (and org-link-translation-function ...) (let ... ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (...) (... ... ...) (t ...)))
  (let (type path link line search (pos ...)) (catch (quote match) (save-excursion ... ...) (when ... ... ...) (save-excursion ...) (save-excursion ...) (when ... ... ...)) (unless path (error "No link found")) (with-current-buffer (or reference-buffer ...) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (cond ((and ... ... ...) (or ... ...)) ((org-at-timestamp-p t) (org-follow-timestamp-link)) ((or ... ...) (org-footnote-action)) (t (let ... ... ... ...)))
  ad-Orig-org-open-at-point(nil nil)
  org-open-at-point()
  org-open-at-mouse(#<buttondown-event button2>)
  call-interactively(org-open-at-mouse)


 o Symbol's function definition is void: make-temp-file when using org-babel-dot
 
 Debugger entered--Lisp error: (void-function make-temp-file)
  (make-temp-file "org-babel-dot")
  (let ((result-params ...) (out-file ...) (cmdline ...) (cmd ...) (in-file ...)) (with-temp-file in-file (insert body)) (message (concat cmd " " in-file " " cmdline " -o " out-file)) (shell-command (concat cmd " " in-file " " cmdline " -o " out-file)) out-file)
  org-babel-execute:dot("digraph G {\n  size=\"8,6\"\n  ratio=expand\n  edge [dir=both]\n  plcnet [shape=box, label=\"PLC Network\"]\n  subgraph cluster_wrapline {\n    label=\"Wrapline Control System\"\n    color=purple\n    subgraph {\n    rank=same\n    exec\n    sharedmem [style=filled, fillcolor=lightgrey, shape=box]\n    }\n    edge[style=dotted, dir=none]\n    exec -> opserver\n    exec -> db\n    plc -> exec\n    edge [style=line, dir=both]\n    exec -> sharedmem\n    sharedmem -> db\n    plc -> sharedmem\n    sharedmem -> opserver\n  }\n  plcnet -> plc [constraint=false]\n  millwide [shape=box, label=\"Millwide System\"]\n  db -> millwide\n\n  subgraph cluster_opclients {\n    color=blue\n    label=\"Operator Clients\"\n    rankdir=LR\n    labelloc=b\n    node[label=client]\n    client1 -> client2 -> client3 [constraint=false]\n    opserver -> client1\n    opserver -> client2\n    opserver -> client3\n  }\n}\n" ((:cache . "no") (:cmdline . "-Kdot -Tpng") (:comments . "") (:exports . "results") (:file . "gv01.png") (:hlines . "no") (:noweb . "no") (:results . "file replace") (:session . "none") (:shebang . "") (:tangle . "")))
  funcall(org-babel-execute:dot "digraph G {\n  size=\"8,6\"\n  ratio=expand\n  edge [dir=both]\n  plcnet [shape=box, label=\"PLC Network\"]\n  subgraph cluster_wrapline {\n    label=\"Wrapline Control System\"\n    color=purple\n    subgraph {\n    rank=same\n    exec\n    sharedmem [style=filled, fillcolor=lightgrey, shape=box]\n    }\n    edge[style=dotted, dir=none]\n    exec -> opserver\n    exec -> db\n    plc -> exec\n    edge [style=line, dir=both]\n    exec -> sharedmem\n    sharedmem -> db\n    plc -> sharedmem\n    sharedmem -> opserver\n  }\n  plcnet -> plc [constraint=false]\n  millwide [shape=box, label=\"Millwide System\"]\n  db -> millwide\n\n  subgraph cluster_opclients {\n    color=blue\n    label=\"Operator Clients\"\n    rankdir=LR\n    labelloc=b\n    node[label=client]\n    client1 -> client2 -> client3 [constraint=false]\n    opserver -> client1\n    opserver -> client2\n    opserver -> client3\n  }\n}\n" ((:cache . "no") (:cmdline . "-Kdot -Tpng") (:comments . "") (:exports . "results") (:file . "gv01.png") (:hlines . "no") (:noweb . "no") (:results . "file replace") (:session . "none") (:shebang . "") (:tangle . "")))
  (setq result (funcall cmd body params))
  (if (and (not arg) new-hash (equal new-hash old-hash)) (save-excursion (goto-char ...) (end-of-line 1) (forward-char 1) (setq result ...) (message ...) result) (setq result (funcall cmd body params)) (if (eq result-type ...) (setq result ...)) (org-babel-insert-result result result-params info new-hash) (run-hooks (quote org-babel-after-execute-hook)) result)
  (progn (fset (quote call-process-region) (function* ...)) (unless (member lang org-babel-interpreters) (error "Language is not in `org-babel-interpreters': %s" lang)) (if (and ... new-hash ...) (save-excursion ... ... ... ... ... result) (setq result ...) (if ... ...) (org-babel-insert-result result result-params info new-hash) (run-hooks ...) result))
  (unwind-protect (progn (fset ... ...) (unless ... ...) (if ... ... ... ... ... ... result)) (if --letf-bound--90098 (fset ... --letf-save--90097) (fmakunbound ...)))
  (let* ((--letf-bound--90098 ...) (--letf-save--90097 ...)) (unwind-protect (progn ... ... ...) (if --letf-bound--90098 ... ...)))
  (letf ((... ...)) (unless (member lang org-babel-interpreters) (error "Language is not in `org-babel-interpreters': %s" lang)) (if (and ... new-hash ...) (save-excursion ... ... ... ... ... result) (setq result ...) (if ... ...) (org-babel-insert-result result result-params info new-hash) (run-hooks ...) result))
  (letf* ((... ...)) (unless (member lang org-babel-interpreters) (error "Language is not in `org-babel-interpreters': %s" lang)) (if (and ... new-hash ...) (save-excursion ... ... ... ... ... result) (setq result ...) (if ... ...) (org-babel-insert-result result result-params info new-hash) (run-hooks ...) result))
  (flet ((call-process-region ... ...)) (unless (member lang org-babel-interpreters) (error "Language is not in `org-babel-interpreters': %s" lang)) (if (and ... new-hash ...) (save-excursion ... ... ... ... ... result) (setq result ...) (if ... ...) (org-babel-insert-result result result-params info new-hash) (run-hooks ...) result))
  (unwind-protect (flet (...) (unless ... ...) (if ... ... ... ... ... ... result)) (setq call-process-region (quote call-process-region-original)))
  (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 ("dot" "digraph G {\n  size=\"8,6\"\n  ratio=expand\n  edge [dir=both]\n  plcnet [shape=box, label=\"PLC Network\"]\n  subgraph cluster_wrapline {\n    label=\"Wrapline Control System\"\n    color=purple\n    subgraph {\n    rank=same\n    exec\n    sharedmem [style=filled, fillcolor=lightgrey, shape=box]\n    }\n    edge[style=dotted, dir=none]\n    exec -> opserver\n    exec -> db\n    plc -> exec\n    edge [style=line, dir=both]\n    exec -> sharedmem\n    sharedmem -> db\n    plc -> sharedmem\n    sharedmem -> opserver\n  }\n  plcnet -> plc [constraint=false]\n  millwide [shape=box, label=\"Millwide System\"]\n  db -> millwide\n\n  subgraph cluster_opclients {\n    color=blue\n    label=\"Operator Clients\"\n    rankdir=LR\n    labelloc=b\n    node[label=client]\n    client1 -> client2 -> client3 [constraint=false]\n    opserver -> client1\n    opserver -> client2\n    opserver -> client3\n  }\n}\n" ((:cache . "no") (:cmdline . "-Kdot -Tpng") (:comments . "") (:exports . "results") (:file . "gv01.png") (:hlines . "no") (:noweb . "no") (:results . "file 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)
  recursive-edit()
  byte-code("..." [buffer-read-only noninteractive debugger-buffer middlestart debugger-args debugger-batch-max-lines pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message buffer-string kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit standard-output] 3)
  debug(error (void-function assoc-default))
  (assoc-default dlink apps-dlink (quote string-match))
  (let ((match ...)) (if match (progn ... match) (progn ... nil)))
  (or (and remp (cdr ...)) (and dirp (cdr ...)) (let (...) (if match ... ...)) (assoc-default dfile (org-apps-regexp-alist apps a-m-a-p) (quote string-match)) (cdr (assoc ext apps)) (cdr (assoc t apps)))
  (setq cmd (or (and remp ...) (and dirp ...) (let ... ...) (assoc-default dfile ... ...) (cdr ...) (cdr ...)))
  (cond ((member in-emacs ...) (setq cmd ...)) (in-emacs (setq cmd ...)) (t (setq cmd ...)))
  (let* ((file ...) (file-apps ...) (apps ...) (apps-dlink ...) (remp ...) (dirp ...) (file ...) (a-m-a-p ...) (dfile ...) (link ...) (dlink ...) (old-buffer ...) (old-pos ...) (old-mode major-mode) ext cmd link-match-data) (if (string-match "^.*\\.\\([a-zA-Z0-9]+\\.gz\\)$" dfile) (setq ext ...) (if ... ...)) (cond (... ...) (in-emacs ...) (t ...)) (when (eq cmd ...) (setq cmd ...)) (when (eq cmd ...) (setq cmd ...)) (when (eq cmd ...) (require ...) (mailcap-parse-mailcaps) (let* ... ...)) (if (and ... ... ...) (error "No such file: %s" file)) (cond (... ... ... ... ...) (... ... ... ...) (... ...) (t ...)) (and (org-mode-p) (eq old-mode ...) (or ... ...) (org-mark-ring-push old-pos old-buffer)))
  org-open-file("communication.png" nil nil nil)
  (if (string-match "[*?{]" (file-name-nondirectory path)) (dired path) (org-open-file path in-emacs line search))
  (cond ((assoc type org-link-protocols) (funcall ... path)) ((equal type "mailto") (let ... ... ... ...)) ((member type ...) (browse-url ...)) ((string= type "doi") (browse-url ...)) ((member type ...) (browse-url ...)) ((string= type "tags") (org-tags-view in-emacs path)) ((string= type "tree-match") (org-occur ...)) ((string= type "file") (if ... ... ...) (if ... ... ...)) ((string= type "news") (require ...) (org-gnus-follow-link path)) ((string= type "shell") (let ... ...)) ((string= type "elisp") (let ... ...)) ((and ... ...)) ((string= type "thisfile") (if in-emacs ... ...) (let ... ...)) (t (browse-url-at-point)))
  (save-current-buffer (set-buffer (or reference-buffer ...)) (if (string-match " +\\'" path) (setq path ...)) (if (and org-link-translation-function ...) (let ... ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (...) (... ... ...) (t ...)))
  (with-current-buffer (or reference-buffer (current-buffer)) (if (string-match " +\\'" path) (setq path ...)) (if (and org-link-translation-function ...) (let ... ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (...) (... ... ...) (t ...)))
  (let (type path link line search (pos ...)) (catch (quote match) (save-excursion ... ...) (when ... ... ...) (save-excursion ...) (save-excursion ...) (when ... ... ...)) (unless path (error "No link found")) (with-current-buffer (or reference-buffer ...) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (cond ((and ... ... ...) (or ... ...)) ((org-at-timestamp-p t) (org-follow-timestamp-link)) ((or ... ...) (org-footnote-action)) (t (let ... ... ... ...)))
  ad-Orig-org-open-at-point(nil nil)
  org-open-at-point()
  org-open-at-mouse(#<buttondown-event button2>)
  call-interactively(org-open-at-mouse)

Re: org-babel and Xemacs incompatibilities

[Eric Schulte]

More replies,

"Dr. Volker Zell" <dr.volker.zell@oracle.com> writes:

>>>>>> Volker Zell writes:
>
>>>>>> Eric Schulte writes:
[...]
> And two more
>
>  o Symbol's function definition is void: assoc-default when trying to display an image
>

This is actually an issue in the core of org-mode as `assoc-default' is
called by `org-open-at-point'.  I'm not sure how Carsten would want to
handle this.  The `assoc-default' function is pretty simple and could be
coppied into org-mode.  Again I don't know how these xemacs
compatibility issues are normally handled.

>  o Symbol's function definition is void: make-temp-file when using org-babel-dot
>  

Hmm, `make-temp-file' is used throughout pretty much all of the
org-babel language specific files.  Maybe we should just copy this
function directly into org-babel.  This seems like commonly useful
functionality, I wonder how other xemacs packages handle similar
requirements.

Sorry I'm not much help here, these fixes should be straightforward once
the "best practices" for xemacs compatibility is known.

Thanks -- Eric

Re: org-babel and Xemacs incompatibilities

[Michael Sperber]

[-- Attachment #1: Type: text/plain, Size: 727 bytes --]


"Eric Schulte" <schulte.eric@gmail.com> writes:

>> And two more
>>
>>  o Symbol's function definition is void: assoc-default when trying to display an image
>> [...]
>>  o Symbol's function definition is void: make-temp-file when using org-babel-dot
>> [...]

Both of these are in XEmacs 21.5, but not 21.4.  As 21.4 is almost not
moving anymore, it may not be worth the effort to add them to 21.4.
(Volker would have to wait quite a while to get a 21.4 that works with
this.)  My suggestion is to leave org-mode and XEmacs 21.4 as is, and
for Volker to copy the definitions from 21.5 to his init.el.
(Attached.)  Is this acceptable?

-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla

[-- Attachment #2: Type: text/plain, Size: 2387 bytes --]

(defun assoc-default (key alist &optional test default)
  "Find object KEY in a pseudo-alist ALIST.
ALIST is a list of conses or objects.  Each element (or the element's car,
if it is a cons) is compared with KEY by evaluating (TEST (car elt) KEY).
If that is non-nil, the element matches;
then `assoc-default' returns the element's cdr, if it is a cons,
or DEFAULT if the element is not a cons.

If no element matches, the value is nil.
If TEST is omitted or nil, `equal' is used."
  (let (found (tail alist) value)
    (while (and tail (not found))
      (let ((elt (car tail)))
	(when (funcall (or test 'equal) (if (consp elt) (car elt) elt) key)
	  (setq found t value (if (consp elt) (cdr elt) default))))
      (setq tail (cdr tail)))
    value))


(defun make-temp-file (prefix &optional dir-flag suffix)
  "Create a temporary file.
The returned file name (created by appending some random characters at the
end of PREFIX, and expanding against the return value of `temp-directory' if
necessary), is guaranteed to point to a newly created empty file.  You can
then use `write-region' to write new data into the file.

If DIR-FLAG is non-nil, create a new empty directory instead of a file.

If SUFFIX is non-nil, add that at the end of the file name.

This function is analagous to mkstemp(3) under POSIX, avoiding the race
condition between testing for the existence of the generated filename (under
POSIX with mktemp(3), under Emacs Lisp with `make-temp-name') and creating
it."
  (let ((umask (default-file-modes))
	(temporary-file-directory (temp-directory))
	file)
    (unwind-protect
	(progn
	  ;; Create temp files with strict access rights.  It's easy to
	  ;; loosen them later, whereas it's impossible to close the
	  ;; time-window of loose permissions otherwise.
	  (set-default-file-modes #o700)
	  (while (condition-case ()
		     (progn
		       (setq file
			     (make-temp-name
			      (expand-file-name prefix
						temporary-file-directory)))
		       (if suffix
			   (setq file (concat file suffix)))
		       (if dir-flag
			   (make-directory file)
			 (write-region "" nil file nil 'silent nil 'excl))
		       nil)
		   (file-already-exists t))
	    ;; the file was somehow created by someone else between
	    ;; `make-temp-name' and `write-region', let's try again.
	    nil)
	  file)
      ;; Reset the umask.
      (set-default-file-modes umask))))

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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

Re: org-babel and Xemacs incompatibilities

[Eric Schulte]

Hi Volker,

Thanks for pointing these out, replies in-line below

"Dr. Volker Zell" <dr.volker.zell@oracle.com> writes:

>>>>>> Eric Schulte writes:
>
>     > Hi,
>     > A patch has just been applied to the org-mode repository which should
>     > fix this issue.
>
>     > Please let me know if the issue remains.
>
> This issue is gone now.but two others show up when executing code blocks with C-c C-c
> in xemacs-21.4.22:
>
>  Symbol's value as variable is void: small-temporary-file-directory
>
> which can be solved by copying the definition from files.el from emacs-23.2
>

This should be fixed.

>
> and
>
>  Symbol's function definition is void: line-number-at-pos
>

I've replaced the calls to `line-number-at-pos' with a single call to
`count-lines'.  Is count lines (also part of simple.el) also missing
from xemacs?  If so what's the normal work around in these situations,
would I add the definition into the org-babel source, or can I require
xemacs users to download and install the file linked in your email, or
some other option?

Thanks -- Eric

>
> which can be solved by downloading linum.el from
>
>  o http://stud4.tuwien.ac.at/~e0225855/linum/linum.html
>
> Ciao
>   Volker
>   

Re: org-babel and Xemacs incompatibilities

[Michael Sperber]

"Eric Schulte" <schulte.eric@gmail.com> writes:

> I've replaced the calls to `line-number-at-pos' with a single call to
> `count-lines'.  Is count lines (also part of simple.el) also missing
> from xemacs? 

No, `count-lines' should work.  Thanks for the other changes!

-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla