Mercurial > emacs

comparison lisp/net/tramp-fish.el @ 105894:ae9f17f9fa46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/tramp-compat.el (tramp-compat-copy-directory) (tramp-compat-delete-directory): New defuns.
author Michael Albinus <michael.albinus@gmx.de>
date Sat, 07 Nov 2009 23:53:29 +0000
parents f92b20f3ef80
children 9e96dbbd314e
comparison
equal deleted inserted replaced
105893:535ef0fe1689 105894:ae9f17f9fa46
317 (when (file-exists-p directory) 317 (when (file-exists-p directory)
318 (if recursive 318 (if recursive
319 (mapc 319 (mapc
320 (lambda (file) 320 (lambda (file)
321 (if (file-directory-p file) 321 (if (file-directory-p file)
322 (delete-directory file recursive) 322 (tramp-compat-delete-directory file recursive)
323 (delete-file file))) 323 (delete-file file)))
324 ;; We do not want to delete "." and "..". 324 ;; We do not want to delete "." and "..".
325 (directory-files 325 (directory-files
326 directory 'full "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"))) 326 directory 'full "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*")))
327 (with-parsed-tramp-file-name 327 (with-parsed-tramp-file-name