mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

* net/ange-ftp.el (ange-ftp-insert-directory): Parse directory

Browse source 
also in case of (and (not full) (not wildcard)). This is needed,
when dired is called with a list of files, which are not in
`default-directory'.  (Bug#5478)
This commit is contained in:
Michael Albinus 2010-02-03 07:16:34 +01:00
parent 1df9718f3a
commit 8214b6e4e7
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2010-02-03 Michael Albinus <michael.albinus@gmx.de>
* net/ange-ftp.el (ange-ftp-insert-directory): Parse directory
also in case of (and (not full) (not wildcard)). This is needed,
when dired is called with a list of files, which are not in
`default-directory'. (Bug#5478)
2010-02-03 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-hooks.el (vc-path): Make it an obsolete var, rather than function.

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

@ -4534,7 +4534,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
;; Remove "d" which dired added to `switches'.
(setq switches (substring switches 0 (match-beginning 0))))
(let* ((dirlist (ange-ftp-ls (or (file-name-directory file) ".")
switches nil))
switches 'parse))
(filename (file-name-nondirectory (directory-file-name file)))
(case-fold-search nil))
;; FIXME: This presumes a particular output format, which is