Mercurial > emacs

comparison lisp/files.el @ 108676:3a80fc3735bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Backport from trunk: Fix bug#6298.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 31 May 2010 17:24:46 +0200
parents 297d4e80151f
children b6b4bb484cc3
comparison
equal deleted inserted replaced
108675:e3df298f4131 108676:3a80fc3735bf
4645 (make-directory-internal (car create-list)) 4645 (make-directory-internal (car create-list))
4646 (setq create-list (cdr create-list)))))))) 4646 (setq create-list (cdr create-list))))))))
4647 4647
4648 (defconst directory-files-no-dot-files-regexp 4648 (defconst directory-files-no-dot-files-regexp
4649 "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*" 4649 "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"
4650 "Regexp of file names excluging \".\" an \"..\".") 4650 "Regexp matching any file name except \".\" and \"..\".")
4651 4651
4652 (defun delete-directory (directory &optional recursive) 4652 (defun delete-directory (directory &optional recursive)
4653 "Delete the directory named DIRECTORY. Does not follow symlinks. 4653 "Delete the directory named DIRECTORY. Does not follow symlinks.
4654 If RECURSIVE is non-nil, all files in DIRECTORY are deleted as well." 4654 If RECURSIVE is non-nil, all files in DIRECTORY are deleted as well."
4655 (interactive 4655 (interactive