procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* net/tramp.el (tramp-handle-insert-file-contents): Use "dd"

Browse source 
instead of "head" and "tail".  There were problems with SunOS 5.9,
and it performs better.
This commit is contained in:
Michael Albinus 2011-05-17 14:47:55 +02:00
parent 7edd209389
commit 7c1d9aa0bd
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2011-05-17 Michael Albinus <michael.albinus@gmx.de>
* 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 <rgm@gnu.org>
* mail/mail-utils.el (mail-dont-reply-to): Silence compiler.

12
lisp/net/tramp.el
View file

@ -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