Re: [Orgmode] 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)