From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Dr. Volker Zell" Subject: Re: org-babel and Xemacs incompatibilities Date: Tue, 25 May 2010 14:42:50 +0200 Message-ID: <7zsk5g9mph.fsf@vzell-de.de.oracle.com> References: <7z1vdiztxi.fsf@vzell-de.de.oracle.com> <877hn2rudj.fsf@gmail.com> <7zsk5gqlhw.fsf@vzell-de.de.oracle.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable Return-path: Received: from [140.186.70.92] (port=33037 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OGtTG-000517-8Q for emacs-orgmode@gnu.org; Tue, 25 May 2010 08:43:00 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OGtTD-0006h5-Jt for emacs-orgmode@gnu.org; Tue, 25 May 2010 08:42:58 -0400 Received: from rcsinet10.oracle.com ([148.87.113.121]:55988) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OGtTD-0006gp-7g for emacs-orgmode@gnu.org; Tue, 25 May 2010 08:42:55 -0400 In-Reply-To: <7zsk5gqlhw.fsf@vzell-de.de.oracle.com> (Volker Zell's message of "Tue, 25 May 2010 13:16:59 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: "Dr. Volker Zell" Cc: sperber@deinprogramm.de, emacs-orgmode@gnu.org >>>>> 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 blo= cks 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 emac= s-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 displ= ay 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-r= ing-push old-pos old-buffer))) org-open-file("communication.png" nil nil nil) (if (string-match "[*?{]" (file-name-nondirectory path)) (dired path) (or= g-open-file path in-emacs line search)) (cond ((assoc type org-link-protocols) (funcall ... path)) ((equal type "= mailto") (let ... ... ... ...)) ((member type ...) (browse-url ...)) ((stri= ng=3D type "doi") (browse-url ...)) ((member type ...) (browse-url ...)) ((= string=3D type "tags") (org-tags-view in-emacs path)) ((string=3D type "tre= e-match") (org-occur ...)) ((string=3D type "file") (if ... ... ...) (if ..= . ... ...)) ((string=3D type "news") (require ...) (org-gnus-follow-link pa= th)) ((string=3D type "shell") (let ... ...)) ((string=3D type "elisp") (le= t ... ...)) ((and ... ...)) ((string=3D type "thisfile") (if in-emacs ... .= ..) (let ... ...)) (t (browse-url-at-point))) (save-current-buffer (set-buffer (or reference-buffer ...)) (if (string-m= atch " +\\'" path) (setq path ...)) (if (and org-link-translation-function = ...) (let ... ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...)= (... ...) (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (...) = (... ... ...) (t ...))) (with-current-buffer (or reference-buffer (current-buffer)) (if (string-m= atch " +\\'" path) (setq path ...)) (if (and org-link-translation-function = ...) (let ... ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...)= (... ...) (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (...) = (... ... ...) (t ...))) (let (type path link line search (pos ...)) (catch (quote match) (save-ex= cursion ... ...) (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-follo= w-timestamp-link)) ((or ... ...) (org-footnote-action)) (t (let ... ... ...= ...))) ad-Orig-org-open-at-point(nil nil) org-open-at-point() org-open-at-mouse(#) call-interactively(org-open-at-mouse) o Symbol's function definition is void: make-temp-file when using org-babe= l-dot =20 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-f= ile " " cmdline " -o " out-file)) (shell-command (concat cmd " " in-file " = " cmdline " -o " out-file)) out-file) org-babel-execute:dot("digraph G {\n size=3D\"8,6\"\n ratio=3Dexpand\n = edge [dir=3Dboth]\n plcnet [shape=3Dbox, label=3D\"PLC Network\"]\n subg= raph cluster_wrapline {\n label=3D\"Wrapline Control System\"\n color= =3Dpurple\n subgraph {\n rank=3Dsame\n exec\n sharedmem [style= =3Dfilled, fillcolor=3Dlightgrey, shape=3Dbox]\n }\n edge[style=3Ddot= ted, dir=3Dnone]\n exec -> opserver\n exec -> db\n plc -> exec\n = edge [style=3Dline, dir=3Dboth]\n exec -> sharedmem\n sharedmem -> = db\n plc -> sharedmem\n sharedmem -> opserver\n }\n plcnet -> plc [= constraint=3Dfalse]\n millwide [shape=3Dbox, label=3D\"Millwide System\"]\= n db -> millwide\n\n subgraph cluster_opclients {\n color=3Dblue\n = label=3D\"Operator Clients\"\n rankdir=3DLR\n labelloc=3Db\n node[= label=3Dclient]\n client1 -> client2 -> client3 [constraint=3Dfalse]\n = opserver -> client1\n opserver -> client2\n opserver -> client3\n = }\n}\n" ((:cache . "no") (:cmdline . "-Kdot -Tpng") (:comments . "") (:expo= rts . "results") (:file . "gv01.png") (:hlines . "no") (:noweb . "no") (:re= sults . "file replace") (:session . "none") (:shebang . "") (:tangle . ""))) funcall(org-babel-execute:dot "digraph G {\n size=3D\"8,6\"\n ratio=3De= xpand\n edge [dir=3Dboth]\n plcnet [shape=3Dbox, label=3D\"PLC Network\"]= \n subgraph cluster_wrapline {\n label=3D\"Wrapline Control System\"\n = color=3Dpurple\n subgraph {\n rank=3Dsame\n exec\n sharedmem= [style=3Dfilled, fillcolor=3Dlightgrey, shape=3Dbox]\n }\n edge[styl= e=3Ddotted, dir=3Dnone]\n exec -> opserver\n exec -> db\n plc -> e= xec\n edge [style=3Dline, dir=3Dboth]\n exec -> sharedmem\n shared= mem -> db\n plc -> sharedmem\n sharedmem -> opserver\n }\n plcnet -= > plc [constraint=3Dfalse]\n millwide [shape=3Dbox, label=3D\"Millwide Sys= tem\"]\n db -> millwide\n\n subgraph cluster_opclients {\n color=3Dblu= e\n label=3D\"Operator Clients\"\n rankdir=3DLR\n labelloc=3Db\n = node[label=3Dclient]\n client1 -> client2 -> client3 [constraint=3Dfal= se]\n opserver -> client1\n opserver -> client2\n opserver -> clie= nt3\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 (g= oto-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-interpr= eters': %s" lang)) (if (and ... new-hash ...) (save-excursion ... ... ... .= .. ... result) (setq result ...) (if ... ...) (org-babel-insert-result resu= lt result-params info new-hash) (run-hooks ...) result)) (unwind-protect (progn (fset ... ...) (unless ... ...) (if ... ... ... ..= . ... ... result)) (if --letf-bound--90098 (fset ... --letf-save--90097) (f= makunbound ...))) (let* ((--letf-bound--90098 ...) (--letf-save--90097 ...)) (unwind-protec= t (progn ... ... ...) (if --letf-bound--90098 ... ...))) (letf ((... ...)) (unless (member lang org-babel-interpreters) (error "La= nguage 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-hoo= ks ...) result)) (letf* ((... ...)) (unless (member lang org-babel-interpreters) (error "L= anguage is not in `org-babel-interpreters': %s" lang)) (if (and ... new-has= h ...) (save-excursion ... ... ... ... ... result) (setq result ...) (if ..= . ...) (org-babel-insert-result result result-params info new-hash) (run-ho= oks ...) result)) (flet ((call-process-region ... ...)) (unless (member lang org-babel-inte= rpreters) (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 inf= o 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 ...) (defaul= t-directory ...) (call-process-region-original ...) result) (unwind-protect= (flet ... ... ...) (setq call-process-region ...))) org-babel-execute-src-block(nil ("dot" "digraph G {\n size=3D\"8,6\"\n = ratio=3Dexpand\n edge [dir=3Dboth]\n plcnet [shape=3Dbox, label=3D\"PLC N= etwork\"]\n subgraph cluster_wrapline {\n label=3D\"Wrapline Control Sy= stem\"\n color=3Dpurple\n subgraph {\n rank=3Dsame\n exec\n = sharedmem [style=3Dfilled, fillcolor=3Dlightgrey, shape=3Dbox]\n }\n = edge[style=3Ddotted, dir=3Dnone]\n exec -> opserver\n exec -> db\n = plc -> exec\n edge [style=3Dline, dir=3Dboth]\n exec -> sharedmem\n = sharedmem -> db\n plc -> sharedmem\n sharedmem -> opserver\n }\n = plcnet -> plc [constraint=3Dfalse]\n millwide [shape=3Dbox, label=3D\"Mil= lwide System\"]\n db -> millwide\n\n subgraph cluster_opclients {\n co= lor=3Dblue\n label=3D\"Operator Clients\"\n rankdir=3DLR\n labello= c=3Db\n node[label=3Dclient]\n client1 -> client2 -> client3 [constra= int=3Dfalse]\n opserver -> client1\n opserver -> client2\n opserve= r -> client3\n }\n}\n" ((:cache . "no") (:cmdline . "-Kdot -Tpng") (:comme= nts . "") (:exports . "results") (:file . "gv01.png") (:hlines . "no") (:no= web . "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) (a= nd ... ...) (org-remove-occur-highlights) (org-remove-latex-fragment-image-= overlays) (message "Temporary highlights/overlays removed from current buff= er")) ((and ... ...) (funcall org-finish-function)) ((run-hook-with-args-un= til-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-f= ormula) (if arg ... ...) (call-interactively ...)) ((or ... ...) (call-inte= ractively ...)) ((org-at-item-checkbox-p) (call-interactively ...)) ((org-a= t-item-p) (if arg ... ...)) ((save-excursion ... ...) (beginning-of-line 1)= (save-excursion ...)) ((save-excursion ... ...) (cond ... ...)) ((org-cloc= k-update-time-maybe)) (t (error "C-c C-c can do nothing useful at this loca= tion"))) (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 middlest= art debugger-args debugger-batch-max-lines pop-to-buffer debugger-mode debu= gger-setup-buffer count-lines 2 "...\n" message buffer-string kill-emacs de= bug backtrace-debug 3 t debugger-reenable "" nil recursive-edit standard-ou= tput] 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-r= ing-push old-pos old-buffer))) org-open-file("communication.png" nil nil nil) (if (string-match "[*?{]" (file-name-nondirectory path)) (dired path) (or= g-open-file path in-emacs line search)) (cond ((assoc type org-link-protocols) (funcall ... path)) ((equal type "= mailto") (let ... ... ... ...)) ((member type ...) (browse-url ...)) ((stri= ng=3D type "doi") (browse-url ...)) ((member type ...) (browse-url ...)) ((= string=3D type "tags") (org-tags-view in-emacs path)) ((string=3D type "tre= e-match") (org-occur ...)) ((string=3D type "file") (if ... ... ...) (if ..= . ... ...)) ((string=3D type "news") (require ...) (org-gnus-follow-link pa= th)) ((string=3D type "shell") (let ... ...)) ((string=3D type "elisp") (le= t ... ...)) ((and ... ...)) ((string=3D type "thisfile") (if in-emacs ... .= ..) (let ... ...)) (t (browse-url-at-point))) (save-current-buffer (set-buffer (or reference-buffer ...)) (if (string-m= atch " +\\'" path) (setq path ...)) (if (and org-link-translation-function = ...) (let ... ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...)= (... ...) (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (...) = (... ... ...) (t ...))) (with-current-buffer (or reference-buffer (current-buffer)) (if (string-m= atch " +\\'" path) (setq path ...)) (if (and org-link-translation-function = ...) (let ... ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...)= (... ...) (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (...) = (... ... ...) (t ...))) (let (type path link line search (pos ...)) (catch (quote match) (save-ex= cursion ... ...) (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-follo= w-timestamp-link)) ((or ... ...) (org-footnote-action)) (t (let ... ... ...= ...))) ad-Orig-org-open-at-point(nil nil) org-open-at-point() org-open-at-mouse(#) call-interactively(org-open-at-mouse)