mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
when the argument is nil.
This commit is contained in:
Michael Albinus 2008-02-19 19:23:19 +00:00
parent 00ca5ce2ea
commit c200c78dc5
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-02-19 Katsumi Yamaoka <yamaoka@jpl.org>
* net/ange-ftp.el (ange-ftp-quote-string): Return the null string
when the argument is nil.
2008-02-19 Dan Nicolaescu <dann@ics.uci.edu> 2008-02-19 Dan Nicolaescu <dann@ics.uci.edu>
* vc.el (dir-status): Add a brief description. * vc.el (dir-status): Add a brief description.

4
lisp/net/ange-ftp.el
View file

@ -1527,7 +1527,9 @@ then kill the related ftp process."
;; and that by doubling it. But experiment says UNIX-style kind of ;; and that by doubling it. But experiment says UNIX-style kind of
;; quoting is correct when talking to ftp on GNU/Linux systems, and ;; quoting is correct when talking to ftp on GNU/Linux systems, and
;; W32-style kind of quoting on, yes, W32 systems. ;; 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) (defun ange-ftp-barf-if-not-directory (directory)
(or (file-directory-p directory) (or (file-directory-p directory)