From 7c1d9aa0bd508b0b3e0506bca7384dc41cfe7484 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 17 May 2011 14:47:55 +0200 Subject: [PATCH] * net/tramp.el (tramp-handle-insert-file-contents): Use "dd" instead of "head" and "tail". There were problems with SunOS 5.9, and it performs better. --- lisp/ChangeLog | 6 ++++++ lisp/net/tramp.el | 12 ++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 844fcaad833..79427663988 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-05-17 Michael Albinus + + * net/tramp.el (tramp-handle-insert-file-contents): Use "dd" + instead of "head" and "tail". There were problems with SunOS 5.9, + and it performs better. + 2011-05-17 Glenn Morris * mail/mail-utils.el (mail-dont-reply-to): Silence compiler. diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 693e082ecc8..bc831c3b596 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -2838,16 +2838,16 @@ User is always nil." v (cond ((and beg end) - (format "tail -c +%d %s | head -c +%d >%s" - (1+ beg) (tramp-shell-quote-argument localname) + (format "dd bs=1 skip=%d if=%s count=%d of=%s" + beg (tramp-shell-quote-argument localname) (- end beg) remote-copy)) (beg - (format "tail -c +%d %s >%s" - (1+ beg) (tramp-shell-quote-argument localname) + (format "dd bs=1 skip=%d if=%s of=%s" + beg (tramp-shell-quote-argument localname) remote-copy)) (end - (format "head -c +%d %s >%s" - (1+ end) (tramp-shell-quote-argument localname) + (format "dd bs=1 count=%d if=%s of=%s" + end (tramp-shell-quote-argument localname) remote-copy))))) ;; `insert-file-contents-literally' takes care to avoid -- 2.39.2