Mercurial > emacs

changeset 91961:93cf29ed1d24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/ange-ftp.el (ange-ftp-quote-string): Return the null string when the argument is nil.
author Michael Albinus <michael.albinus@gmx.de>
date Tue, 19 Feb 2008 19:22:28 +0000
parents 81890a88d53d
children 37c6e66c7e57
files lisp/net/ange-ftp.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el	Tue Feb 19 15:44:45 2008 +0000
+++ b/lisp/net/ange-ftp.el	Tue Feb 19 19:22:28 2008 +0000
@@ -1527,7 +1527,9 @@
   ;; and that by doubling it.  But experiment says UNIX-style kind of
   ;; quoting is correct when talking to ftp on GNU/Linux systems, and
   ;; W32-style kind of quoting on, yes, W32 systems.
-  (when (stringp string) (shell-quote-argument string)))
+  (if (stringp string)
+      (shell-quote-argument string)
+    ""))
 
 (defun ange-ftp-barf-if-not-directory (directory)
   (or (file-directory-p directory)