From: Andreas Schwab <schwab@suse.de>
Date: Fri, 4 Apr 2003 11:33:54 +0000 (+0000)
Subject: (tramp-send-string): Handle empty string.
X-Git-Tag: ttn-vms-21-2-B4~10646
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49914e046a02b669045d3004a24bf24c02a35f0c;p=emacs.git

(tramp-send-string): Handle empty string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4aac41b648b..52a184f2f68 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-04-04  Andreas Schwab  <schwab@suse.de>
+
+	* net/tramp.el (tramp-send-string): Handle empty string.
+
 2003-04-03  Richard M. Stallman  <rms@gnu.org>
 
 	* emacs-lisp/easymenu.el (easy-menu-define):
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 5bfe55575e8..8f530d3b811 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -5657,7 +5657,8 @@ the remote host use line-endings as defined in the variable
 	  (mapconcat 'identity
 		     (split-string string "\n")
 		     tramp-rsh-end-of-line))
-    (unless (string-equal (substring string -1) tramp-rsh-end-of-line)
+    (unless (or (string= string "")
+		(string-equal (substring string -1) tramp-rsh-end-of-line))
       (setq string (concat string tramp-rsh-end-of-line)))
     ;; send the string
     (if (and tramp-chunksize (not (zerop tramp-chunksize)))