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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4aac41b648b125d7340546b2c68aad40fe202a28..52a184f2f68e9838e28dc270d84de1e70de301fb 100644 (file)
--- 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 5bfe55575e831881e152e37cc18460b37cd7c42a..8f530d3b811cf612dfbdd2e42cd3e8d118b7433b 100644 (file)
--- 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)))