Re: org-babel and Xemacs incompatibilities

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

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