Commit ab276820 authored by Chong Yidong's avatar Chong Yidong
Browse files

* files.el (delete-directory): Delete symlinks to directories with

delete-file (Bug#4739).
parent fec8f0fe
2009-10-24 Sven Joachim <svenjoac@gmx.de>
* files.el (delete-directory): Delete symlinks to directories with
delete-file (Bug#4739).
2009-10-24 Chong Yidong <cyd@stupidchicken.com>
* cedet/semantic/util.el (semantic-recursive-find-nonterminal-by-name):
......
......@@ -4660,7 +4660,10 @@ If RECURSIVE is non-nil, all files in DIRECTORY are deleted as well."
(if (and recursive (not (file-symlink-p directory)))
(mapc
(lambda (file)
(if (file-directory-p file)
;; This test is equivalent to
;; (and (file-directory-p fn) (not (file-symlink-p fn)))
;; but more efficient
(if (eq t (car (file-attributes file)))
(delete-directory file recursive)
(delete-file file)))
;; We do not want to delete "." and "..".
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment