Mercurial > emacs

comparison lisp/files.el @ 106992:405563a1dc5c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/files.el (delete-directory): Fix typo in last change.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 26 Jan 2010 22:36:36 -0500
parents 4b75ffbc9b2f
children 541b767fb366
comparison
equal deleted inserted replaced
106991:4b75ffbc9b2f 106992:405563a1dc5c
4690 (if (eq t (car (file-attributes file))) 4690 (if (eq t (car (file-attributes file)))
4691 (delete-directory file recursive) 4691 (delete-directory file recursive)
4692 (delete-file file))) 4692 (delete-file file)))
4693 ;; We do not want to delete "." and "..". 4693 ;; We do not want to delete "." and "..".
4694 (directory-files 4694 (directory-files
4695 directory 'full directory-files-no-dot-files-regexp)) 4695 directory 'full directory-files-no-dot-files-regexp)))
4696 (delete-directory-internal directory)))))) 4696 (delete-directory-internal directory)))))
4697 4697
4698 (defun copy-directory (directory newname &optional keep-time parents) 4698 (defun copy-directory (directory newname &optional keep-time parents)
4699 "Copy DIRECTORY to NEWNAME. Both args must be strings. 4699 "Copy DIRECTORY to NEWNAME. Both args must be strings.
4700 If NEWNAME names an existing directory, copy DIRECTORY as subdirectory there. 4700 If NEWNAME names an existing directory, copy DIRECTORY as subdirectory there.
4701 4701