From mboxrd@z Thu Jan 1 00:00:00 1970 From: Dan Davison Subject: Re: with-parsed-tramp-file-name Date: Thu, 30 Sep 2010 09:44:15 +0100 Message-ID: <87sk0rr57k.fsf@stats.ox.ac.uk> References: <87iq1nsoxl.fsf@noorul.maa.corp.collab.net> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: Received: from [140.186.70.92] (port=43745 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1P1Ekl-0007tx-E2 for emacs-orgmode@gnu.org; Thu, 30 Sep 2010 04:44:37 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1P1Ekj-0002Ns-5B for emacs-orgmode@gnu.org; Thu, 30 Sep 2010 04:44:35 -0400 Received: from markov.stats.ox.ac.uk ([163.1.210.1]:47579) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1P1Eki-0002NY-Pc for emacs-orgmode@gnu.org; Thu, 30 Sep 2010 04:44:33 -0400 In-Reply-To: <87iq1nsoxl.fsf@noorul.maa.corp.collab.net> (Noorul Islam K. M.'s message of "Thu, 30 Sep 2010 12:22:54 +0530") 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: "Austin F. Frank" Cc: emacs-orgmode@gnu.org, Noorul Islam K M Hi Austin, Noorul Islam K M writes: > "Austin F. Frank" writes: >> Recently I discovered that I can no longer evaluate R source code blocks >> on a file opened using TRAMP. Just btw, I use Org every day at the moment (with emacs24) to execute code (mostly R) on remote machines. The method I use is to store all Org files locally, and use the :dir header argument to specify the machine on which to run R, e.g. --8<---------------cut here---------------start------------->8--- #+babel: :dir /davison@oak.well.ox.ac.uk:~/bench [...] #+begin_src R system("hostname", intern=3DTRUE) #+end_src #+results: : oak --8<---------------cut here---------------end--------------->8--- Do you get the same error evaluating R remotely using this method? >> Using Org-mode version 7.01trans (release_7.01h.746.g72c5) with the What's your emacs version? >> following minimal configuration: >> >> ;; specific to my setup >> (add-to-list 'load-path (expand-file-name "~/src.remote/org-mode/lisp/")) >> (add-to-list 'load-path (expand-file-name "/usr/local/share/emacs/site-l= isp/")) >> >> ;; general instructions >> (require 'tramp) >> (require 'tramp-sh) ; have to do this to set tramp-remote-path? I don't see tramp-sh in emacs23; I do see it in emacs24. >> (require 'ess-site) >> (require 'org-install) >> >> (setq debug-on-error t) >> >> ;; active Babel languages >> (org-babel-do-load-languages >> 'org-babel-load-languages >> '((R . t))) >> >> ;; required for R to work correctly on my remote server >> (add-to-list 'tramp-remote-path 'tramp-own-remote-path) >> >> I evaluate the following code block from a file accessed using TRAMP: [...] How about we test this simple source block: #+begin_src R system("hostname", intern=3DTRUE) #+end_src in a file on the remote machine opened using C-x C-f with the /user@machine:path/to/file syntax, with this minimal config: --8<---------------cut here---------------start------------->8--- (add-to-list 'load-path "/PATH/TO/ess/lisp") (require 'ess-site) (add-to-list 'load-path "/PATH/TO/org-mode/lisp") (require 'org-install) (setq debug-on-error t) (org-babel-do-load-languages 'org-babel-load-languages '((R . t))) --8<---------------cut here---------------end--------------->8--- >> And get the following backtrace: >> Debugger entered--Lisp error: (invalid-function with-parsed-tramp-file-n= ame) >> with-parsed-tramp-file-name("/scpc:bcs:/tmp/R-22126Grk" nil nil) >> org-babel-local-file-name("/scpc:bcs:/tmp/R-22126Grk") [...] With emacs 23.1.1, I get a different error, also involving tramp functions (backtrace below). With emacs 24.0.50.1 I get no error. However, if I add in your two tramp (require) lines: (require 'tramp) (require 'tramp-sh) Then I do get an error with emacs24, again different. I suspect part of the problem is to do with those (require tramp...) lines in your config. Could you try without those lines, and without (add-to-list 'tramp-remote-path 'tramp-own-remote-path) Instead, could you try (setq org-babel-R-command "/PATH/TO/R/EXECUTABLE --slave --no-save") > I tried to replicate this and I get the same error. > If I manually load ob.el by M-x load-file with Location as > /path/to/ob.el then C-c C-c works. But (require 'ob) is not > working. Am I missing something? Noruul, what does (featurep 'ob) evaluate to before you manually attempt the (require 'ob) ? And what goes wrong when you do the require? If (part of) this is an issue of tramp differences between emacs23 and 24 then the tramp author Michael Albinus has already been extremely helpful on several occasions with tramp issues and I am confident he will be able to advise. Dan Error from emacs24 with tramp require lines in emacs config: --8<---------------cut here---------------start------------->8--- Debugger entered--Lisp error: (void-function tramp-compat-octal-to-decimal) signal(void-function (tramp-compat-octal-to-decimal)) byte-code("\203=13=00\305 G!\203=13=00\n\306>\203=13=00\307\207\203&=00= \305 G!\203&=00\n\310>\203&=00=0B\207\311\f@\fA\"\207" [completion localnam= e operation filename err zerop (file-exists-p file-directory-p) t (expand-f= ile-name file-name-as-directory) signal] 3) tramp-file-name-handler(insert-file-contents "/scpc:davison@oak.well.ox.a= c.uk:/tmp/austin.org" t nil nil nil) insert-file-contents("/scpc:davison@oak.well.ox.ac.uk:/tmp/austin.org" t) byte-code("\302=18\303 \302\"\210)\302\207" [inhibit-read-only filename t= insert-file-contents] 3) find-file-noselect-1(# "/scpc:davison@oak.well.ox.ac.u= k:/tmp/austin.org" nil nil "/scpc:davison@oak.well.ox.ac.uk:/tmp/austin.org= " ((149 . 8410) (-1 . 0))) find-file-noselect("/scpc:davison@oak.well.ox.ac.uk:/tmp/austin.org" nil = nil t) find-file("/scpc:davison@oak.well.ox.ac.uk:/tmp/austin.org" t) call-interactively(find-file nil nil) --8<---------------cut here---------------end--------------->8--- Error with emacs23: --8<---------------cut here---------------start------------->8--- Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p "") tramp-handle-write-region("" nil "/scp:davison@oak.well.ox.ac.uk:/tmp/R-3= 2069vws" nil silent) apply(tramp-handle-write-region ("" nil "/scp:davison@oak.well.ox.ac.uk:/= tmp/R-32069vws" nil silent)) tramp-sh-file-name-handler(write-region "" nil "/scp:davison@oak.well.ox.= ac.uk:/tmp/R-32069vws" nil silent) apply(tramp-sh-file-name-handler write-region ("" nil "/scp:davison@oak.w= ell.ox.ac.uk:/tmp/R-32069vws" nil silent)) tramp-file-name-handler(write-region "" nil "/scp:davison@oak.well.ox.ac.= uk:/tmp/R-32069vws" nil silent) write-region("" nil "/scp:davison@oak.well.ox.ac.uk:/tmp/R-32069vws" nil = silent nil excl) byte-code("=C5=C6G!=83=0E=00=C7 !=82=12=00=C8 \"!=12=0B=83=1C=00\n=0BP= =12\f=83'=00=C9\n!=88=822=00=CA=CB=CC\n=CC=CD=CC=CE&=07=88=CC=87" [prefix t= emporary-file-directory file suffix dir-flag make-temp-name zerop file-name= -as-directory expand-file-name make-directory write-region "" nil silent ex= cl] 8) make-temp-file("/scp:davison@oak.well.ox.ac.uk:/tmp/R-") (if (file-remote-p default-directory) (make-temp-file (concat ... ... nil= suffix)) (make-temp-file prefix nil suffix)) org-babel-temp-file("R-") (let ((tmp-file ...)) (org-babel-eval org-babel-R-command (format org-bab= el-R-write-object-command ... ... ... ...)) (org-babel-R-process-value-resu= lt (org-babel-import-elisp-from-file tmp-file ...) column-names-p)) (cond ((eql result-type ...) (let ... ... ...)) ((eql result-type ...) (o= rg-babel-eval org-babel-R-command body))) (case result-type (value (let ... ... ...)) (output (org-babel-eval org-b= abel-R-command body))) org-babel-R-evaluate-external-process("system(\"hostname\", intern=3DTRUE= )" value nil nil) (if session (org-babel-R-evaluate-session session body result-type column= -names-p row-names-p) (org-babel-R-evaluate-external-process body result-ty= pe column-names-p row-names-p)) org-babel-R-evaluate(nil "system(\"hostname\", intern=3DTRUE)" value nil = nil) (let* ((processed-params ...) (result-type ...) (session ...) (colnames-p= ...) (rownames-p ...) (out-file ...) (full-body ...) (result ...)) (messag= e "result is %S" result) (or out-file result)) (save-excursion (let* (... ... ... ... ... ... ... ...) (message "result = is %S" result) (or out-file result))) org-babel-execute:R("system(\"hostname\", intern=3DTRUE)\n" ((:cache . "n= o") (:comments . "") (:exports . "code") (:hlines . "no") (:noweb . "no") (= :results . "replace") (:session . "none") (:shebang . "") (:tangle . "no"))) funcall(org-babel-execute:R "system(\"hostname\", intern=3DTRUE)\n" ((:ca= che . "no") (:comments . "") (:exports . "code") (:hlines . "no") (:noweb .= "no") (:results . "replace") (:session . "none") (:shebang . "") (:tangle = . "no"))) (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) (message "executing %s code block%s..." (capitalize lang) (if .= .. ... "")) (setq result (funcall cmd body params)) (if (eq result-type ...= ) (setq result ...)) (org-babel-insert-result result result-params info new= -hash indent lang) (run-hooks (quote org-babel-after-execute-hook)) result) (progn (fset (quote call-process-region) (function* ...)) (unless (fbound= p cmd) (error "No org-babel-execute function for %s!" lang)) (if (and ... n= ew-hash ...) (save-excursion ... ... ... ... ... result) (message "executin= g %s code block%s..." ... ...) (setq result ...) (if ... ...) (org-babel-in= sert-result result result-params info new-hash indent lang) (run-hooks ...)= result)) (unwind-protect (progn (fset ... ...) (unless ... ...) (if ... ... ... ..= . ... ... ... result)) (if --cl-letf-bound-- (fset ... --cl-letf-save--) (f= makunbound ...))) (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (p= rogn ... ... ...) (if --cl-letf-bound-- ... ...))) (letf ((... ...)) (unless (fboundp cmd) (error "No org-babel-execute func= tion for %s!" lang)) (if (and ... new-hash ...) (save-excursion ... ... ...= ... ... result) (message "executing %s code block%s..." ... ...) (setq res= ult ...) (if ... ...) (org-babel-insert-result result result-params info ne= w-hash indent lang) (run-hooks ...) result)) (letf* ((... ...)) (unless (fboundp cmd) (error "No org-babel-execute fun= ction for %s!" lang)) (if (and ... new-hash ...) (save-excursion ... ... ..= . ... ... result) (message "executing %s code block%s..." ... ...) (setq re= sult ...) (if ... ...) (org-babel-insert-result result result-params info n= ew-hash indent lang) (run-hooks ...) result)) (flet ((call-process-region ... ...)) (unless (fboundp cmd) (error "No or= g-babel-execute function for %s!" lang)) (if (and ... new-hash ...) (save-e= xcursion ... ... ... ... ... result) (message "executing %s code block%s...= " ... ...) (setq result ...) (if ... ...) (org-babel-insert-result result r= esult-params info new-hash indent lang) (run-hooks ...) result)) (unwind-protect (flet (...) (unless ... ...) (if ... ... ... ... ... ... = ... result)) (setq call-process-region (quote org-babel-call-process-region= -original))) (let* ((lang ...) (params ...) (new-hash ...) (old-hash ...) (body ...) (= result-params ...) (result-type ...) (cmd ...) (dir ...) (default-directory= ...) (org-babel-call-process-region-original ...) (indent ...) result) (un= wind-protect (flet ... ... ...) (setq call-process-region ...))) (progn (let* (... ... ... ... ... ... ... ... ... ... ... ... result) (un= wind-protect ... ...))) (if (org-babel-confirm-evaluate info) (progn (let* ... ...))) (when (org-babel-confirm-evaluate info) (let* (... ... ... ... ... ... ..= . ... ... ... ... ... result) (unwind-protect ... ...))) (let ((info ...)) (when (org-babel-confirm-evaluate info) (let* ... ...))) org-babel-execute-src-block(nil ("R" "system(\"hostname\", intern=3DTRUE)= \n" ((:cache . "no") (:comments . "") (:exports . "code") (:hlines . "no") = (:noweb . "no") (:results . "replace") (:session . "none") (:shebang . "") = (:tangle . "no")) "" nil nil 0)) (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() (or (org-babel-execute-src-block-maybe) (org-babel-lob-execute-maybe)) org-babel-execute-maybe() (if org-babel-no-eval-on-ctrl-c-ctrl-c nil (org-babel-execute-maybe)) (unless org-babel-no-eval-on-ctrl-c-ctrl-c (org-babel-execute-maybe)) org-babel-execute-safely-maybe() run-hook-with-args-until-success(org-babel-execute-safely-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 ...) (call-in= teractively ...) (org-list-send-list ...)) ((org-at-item-p) (call-interacti= vely ...) (when arg ...) (org-list-send-list ...)) ((save-excursion ... ...= ) (beginning-of-line 1) (save-excursion ...)) ((save-excursion ... ...) (co= nd ... ...)) ((org-clock-update-time-maybe)) (t (error "C-c C-c can do noth= ing 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 nil nil) recursive-edit() byte-code("=C6=10 @=C7=3D=83!=00=C8=C9=CA\"=88=CB=C9!=89=1AA@)=A2=CC=3D= =83!=00=C8=CD=CA\"=88=CE=0B!=88=CF =88=D0 !=88\f=83d=00=D1ed\"=0DV=83W=00eb= =88=D2=0D=A5y=88`=1E=1Bdb=88=D2=0D=A5=0DZy=88=0E=1B`|=88)=D3c=88eb=88=D4=D5= =D6 \"=88=D7=C6!=88=D4=D8!=88=D9=CA=1E=1C=1E=1D=D4=D8!=88=8A=DA =88+=D9=87"= [unread-command-char debugger-args x debugger-buffer noninteractive debugg= er-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 po= p-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" messa= ge "%s" buffer-string kill-emacs "" nil recursive-edit middlestart buffer-r= ead-only standard-output] 4) debug(error (wrong-type-argument number-or-marker-p "")) tramp-handle-write-region("" nil "/scp:davison@oak.well.ox.ac.uk:/tmp/R-3= 2069u9N" nil silent) apply(tramp-handle-write-region ("" nil "/scp:davison@oak.well.ox.ac.uk:/= tmp/R-32069u9N" nil silent)) tramp-sh-file-name-handler(write-region "" nil "/scp:davison@oak.well.ox.= ac.uk:/tmp/R-32069u9N" nil silent) apply(tramp-sh-file-name-handler write-region ("" nil "/scp:davison@oak.w= ell.ox.ac.uk:/tmp/R-32069u9N" nil silent)) tramp-file-name-handler(write-region "" nil "/scp:davison@oak.well.ox.ac.= uk:/tmp/R-32069u9N" nil silent) write-region("" nil "/scp:davison@oak.well.ox.ac.uk:/tmp/R-32069u9N" nil = silent nil excl) byte-code("=C5=C6G!=83=0E=00=C7 !=82=12=00=C8 \"!=12=0B=83=1C=00\n=0BP= =12\f=83'=00=C9\n!=88=822=00=CA=CB=CC\n=CC=CD=CC=CE&=07=88=CC=87" [prefix t= emporary-file-directory file suffix dir-flag make-temp-name zerop file-name= -as-directory expand-file-name make-directory write-region "" nil silent ex= cl] 8) make-temp-file("/scp:davison@oak.well.ox.ac.uk:/tmp/R-") (if (file-remote-p default-directory) (make-temp-file (concat ... ... nil= suffix)) (make-temp-file prefix nil suffix)) org-babel-temp-file("R-") (let ((tmp-file ...)) (org-babel-eval org-babel-R-command (format org-bab= el-R-write-object-command ... ... ... ...)) (org-babel-R-process-value-resu= lt (org-babel-import-elisp-from-file tmp-file ...) column-names-p)) (cond ((eql result-type ...) (let ... ... ...)) ((eql result-type ...) (o= rg-babel-eval org-babel-R-command body))) (case result-type (value (let ... ... ...)) (output (org-babel-eval org-b= abel-R-command body))) org-babel-R-evaluate-external-process("system(\"hostname\", intern=3DTRUE= )" value nil nil) (if session (org-babel-R-evaluate-session session body result-type column= -names-p row-names-p) (org-babel-R-evaluate-external-process body result-ty= pe column-names-p row-names-p)) org-babel-R-evaluate(nil "system(\"hostname\", intern=3DTRUE)" value nil = nil) (let* ((processed-params ...) (result-type ...) (session ...) (colnames-p= ...) (rownames-p ...) (out-file ...) (full-body ...) (result ...)) (messag= e "result is %S" result) (or out-file result)) (save-excursion (let* (... ... ... ... ... ... ... ...) (message "result = is %S" result) (or out-file result))) org-babel-execute:R("system(\"hostname\", intern=3DTRUE)\n" ((:cache . "n= o") (:comments . "") (:exports . "code") (:hlines . "no") (:noweb . "no") (= :results . "replace") (:session . "none") (:shebang . "") (:tangle . "no"))) funcall(org-babel-execute:R "system(\"hostname\", intern=3DTRUE)\n" ((:ca= che . "no") (:comments . "") (:exports . "code") (:hlines . "no") (:noweb .= "no") (:results . "replace") (:session . "none") (:shebang . "") (:tangle = . "no"))) (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) (message "executing %s code block%s..." (capitalize lang) (if .= .. ... "")) (setq result (funcall cmd body params)) (if (eq result-type ...= ) (setq result ...)) (org-babel-insert-result result result-params info new= -hash indent lang) (run-hooks (quote org-babel-after-execute-hook)) result) (progn (fset (quote call-process-region) (function* ...)) (unless (fbound= p cmd) (error "No org-babel-execute function for %s!" lang)) (if (and ... n= ew-hash ...) (save-excursion ... ... ... ... ... result) (message "executin= g %s code block%s..." ... ...) (setq result ...) (if ... ...) (org-babel-in= sert-result result result-params info new-hash indent lang) (run-hooks ...)= result)) (unwind-protect (progn (fset ... ...) (unless ... ...) (if ... ... ... ..= . ... ... ... result)) (if --cl-letf-bound-- (fset ... --cl-letf-save--) (f= makunbound ...))) (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (p= rogn ... ... ...) (if --cl-letf-bound-- ... ...))) (letf ((... ...)) (unless (fboundp cmd) (error "No org-babel-execute func= tion for %s!" lang)) (if (and ... new-hash ...) (save-excursion ... ... ...= ... ... result) (message "executing %s code block%s..." ... ...) (setq res= ult ...) (if ... ...) (org-babel-insert-result result result-params info ne= w-hash indent lang) (run-hooks ...) result)) (letf* ((... ...)) (unless (fboundp cmd) (error "No org-babel-execute fun= ction for %s!" lang)) (if (and ... new-hash ...) (save-excursion ... ... ..= . ... ... result) (message "executing %s code block%s..." ... ...) (setq re= sult ...) (if ... ...) (org-babel-insert-result result result-params info n= ew-hash indent lang) (run-hooks ...) result)) (flet ((call-process-region ... ...)) (unless (fboundp cmd) (error "No or= g-babel-execute function for %s!" lang)) (if (and ... new-hash ...) (save-e= xcursion ... ... ... ... ... result) (message "executing %s code block%s...= " ... ...) (setq result ...) (if ... ...) (org-babel-insert-result result r= esult-params info new-hash indent lang) (run-hooks ...) result)) (unwind-protect (flet (...) (unless ... ...) (if ... ... ... ... ... ... = ... result)) (setq call-process-region (quote org-babel-call-process-region= -original))) (let* ((lang ...) (params ...) (new-hash ...) (old-hash ...) (body ...) (= result-params ...) (result-type ...) (cmd ...) (dir ...) (default-directory= ...) (org-babel-call-process-region-original ...) (indent ...) result) (un= wind-protect (flet ... ... ...) (setq call-process-region ...))) (progn (let* (... ... ... ... ... ... ... ... ... ... ... ... result) (un= wind-protect ... ...))) (if (org-babel-confirm-evaluate info) (progn (let* ... ...))) (when (org-babel-confirm-evaluate info) (let* (... ... ... ... ... ... ..= . ... ... ... ... ... result) (unwind-protect ... ...))) (let ((info ...)) (when (org-babel-confirm-evaluate info) (let* ... ...))) org-babel-execute-src-block(nil ("R" "system(\"hostname\", intern=3DTRUE)= \n" ((:cache . "no") (:comments . "") (:exports . "code") (:hlines . "no") = (:noweb . "no") (:results . "replace") (:session . "none") (:shebang . "") = (:tangle . "no")) "" nil nil 0)) (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() (or (org-babel-execute-src-block-maybe) (org-babel-lob-execute-maybe)) org-babel-execute-maybe() (if org-babel-no-eval-on-ctrl-c-ctrl-c nil (org-babel-execute-maybe)) (unless org-babel-no-eval-on-ctrl-c-ctrl-c (org-babel-execute-maybe)) org-babel-execute-safely-maybe() run-hook-with-args-until-success(org-babel-execute-safely-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 ...) (call-in= teractively ...) (org-list-send-list ...)) ((org-at-item-p) (call-interacti= vely ...) (when arg ...) (org-list-send-list ...)) ((save-excursion ... ...= ) (beginning-of-line 1) (save-excursion ...)) ((save-excursion ... ...) (co= nd ... ...)) ((org-clock-update-time-maybe)) (t (error "C-c C-c can do noth= ing 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 nil nil) --8<---------------cut here---------------end--------------->8--- > > Thanks and Regards > Noorul > > _______________________________________________ > 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