comparison lisp/net/ange-ftp.el @ 91961:93cf29ed1d24

* net/ange-ftp.el (ange-ftp-quote-string): Return the null string when the argument is nil.

91960:81890a88d53d

  "Quote any characters in STRING that may confuse the ftp process."
  ;; This is said to be wrong; ftp is said to need quoting only for ",
  ;; 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)))

(defun ange-ftp-barf-if-not-directory (directory)
  (or (file-directory-p directory)
      (signal 'file-error
	      (list "Opening directory"

91961:93cf29ed1d24

  "Quote any characters in STRING that may confuse the ftp process."
  ;; This is said to be wrong; ftp is said to need quoting only for ",
  ;; 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.
  (if (stringp string)
      (shell-quote-argument string)
    ""))

(defun ange-ftp-barf-if-not-directory (directory)
  (or (file-directory-p directory)
      (signal 'file-error
	      (list "Opening directory"