From: Michael Albinus <michael.albinus@gmx.de>
To: Bastien <bzg@altern.org>
Cc: Achim Gratz <Stromeko@NexGo.DE>, emacs-orgmode@gnu.org
Subject: Re: [BUG] remote execution in heterogeneous environment
Date: Wed, 09 Jan 2013 14:05:20 +0100 [thread overview]
Message-ID: <87vcb65wxb.fsf@gmx.de> (raw)
In-Reply-To: <87y5g260fn.fsf@bzg.ath.cx> (Bastien's message of "Wed, 09 Jan 2013 12:49:32 +0100")
[-- Attachment #1: Type: text/plain, Size: 351 bytes --]
Bastien <bzg@altern.org> writes:
> Hi Michael,
Hi Bastien,
> Please send me your public key so that I can give your write access.
> Otherwise can you just resent the patch as a git patch with a commit
> message have an Emacs-ready ChangeLog entry?
I don't believe I need permanent write access. Patch appended.
> Thanks!
Best regards, Michael.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-ob-eval.el-org-babel-shell-command-on-region-Use.patch --]
[-- Type: text/x-diff, Size: 1397 bytes --]
From a39b35c3967ac7c95e3442434a3ca44cba54fca5 Mon Sep 17 00:00:00 2001
From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 9 Jan 2013 13:48:30 +0100
Subject: [PATCH] * ob-eval.el (org-babel-shell-command-on-region): Use
`executable-find' for local `shell-file-name'
---
lisp/ob-eval.el | 14 ++++++++++----
1 file changed, 10 insertions(+), 4 deletions(-)
diff --git a/lisp/ob-eval.el b/lisp/ob-eval.el
index 8764920..8018111 100644
--- a/lisp/ob-eval.el
+++ b/lisp/ob-eval.el
@@ -137,11 +137,17 @@ specifies the value of ERROR-BUFFER."
t)))
(let ((input-file (org-babel-temp-file "input-"))
(error-file (if error-buffer (org-babel-temp-file "scor-") nil))
+ ;; Unfortunately, `executable-find' does not support file name
+ ;; handlers. Therefore, we could use it in the local case
+ ;; only.
(shell-file-name
- (if (file-executable-p
- (concat (file-remote-p default-directory) shell-file-name))
- shell-file-name
- "/bin/sh"))
+ (cond ((and (not (file-remote-p default-directory))
+ (executable-find shell-file-name))
+ shell-file-name)
+ ((file-executable-p
+ (concat (file-remote-p default-directory) shell-file-name))
+ shell-file-name)
+ ("/bin/sh")))
exit-status)
;; There is an error in `process-file' when `error-file' exists.
;; This is fixed in Emacs trunk as of 2012-12-21; let's use this
--
1.7.10.4
next prev parent reply other threads:[~2013-01-09 13:05 UTC|newest]
Thread overview: 36+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <6D36E0F9-01D1-4F95-9FAA-B2B2CA10E57E@gmail.com>
2012-12-18 7:56 ` remote execution in heterogeneous environment Michael Albinus
2012-12-20 13:16 ` Michael Albinus
2012-12-20 16:39 ` Bastien
2012-12-20 16:59 ` Achim Gratz
2012-12-20 17:09 ` Nick Dokos
2012-12-20 17:15 ` Bastien
2012-12-20 17:12 ` Bastien
2012-12-20 20:25 ` Achim Gratz
2012-12-20 17:23 ` Michael Albinus
2012-12-20 17:30 ` Bastien
2012-12-21 8:24 ` Michael Albinus
2012-12-21 8:51 ` Bastien
2012-12-21 17:32 ` Nick Dokos
2012-12-21 1:21 ` George Jones
2012-12-21 8:27 ` Michael Albinus
2012-12-22 13:32 ` George
2012-12-22 13:36 ` George
2012-12-22 13:48 ` Michael Albinus
[not found] ` <CAOhM7yVOvrL0F8v1hAnxb4z0Mw0kTf6L6_uZk5o7T3W08geUeg@mail.gmail.com>
[not found] ` <CAOhM7yXmD3OEhBt66Ts9YG+8s9LKhkw0-BT0grh734fH07p2pw@mail.gmail.com>
2012-12-23 14:10 ` Michael Albinus
2012-12-23 15:14 ` Bastien
2012-12-23 16:09 ` Michael Albinus
2012-12-23 16:47 ` Bastien
2012-12-23 17:53 ` George Jones
2012-12-23 19:54 ` Bastien
2012-12-23 21:37 ` George Jones
2012-12-24 13:38 ` Michael Albinus
2013-01-07 16:44 ` [BUG] " Achim Gratz
2013-01-08 8:36 ` Michael Albinus
2013-01-08 17:30 ` Achim Gratz
2013-01-08 18:02 ` Eric Schulte
2013-01-08 21:11 ` Michael Albinus
2013-01-09 7:31 ` Achim Gratz
2013-01-09 8:16 ` Michael Albinus
2013-01-09 11:49 ` Bastien
2013-01-09 13:05 ` Michael Albinus [this message]
2013-01-09 13:11 ` Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87vcb65wxb.fsf@gmx.de \
--to=michael.albinus@gmx.de \
--cc=Stromeko@NexGo.DE \
--cc=bzg@altern.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).