Skip to content
Browse files

Updated dired-clean

  • Loading branch information...
1 parent 146a65a commit 040466f096e51f0472acb1aec76944296d17ce76 t-takahashi committed
Showing with 4 additions and 3 deletions.
  1. +4 −3 dired-config.el
View
7 dired-config.el
@@ -56,9 +56,10 @@ Optional prefix ARG says how many lines to move; default is one line."
"Delete temporary files in current directory"
(interactive)
(dolist (f (remove-if-not '(lambda (x)
- (and
- (file-regular-p x)
- (string-ends-with x "~")))
+ (and
+ (file-regular-p x)
+ (or (and (string-starts-with x "#") (string-ends-with x "#"))
+ (string-ends-with x "~"))))
(directory-files (dired-current-directory))))
(delete-file f)))

0 comments on commit 040466f

Please sign in to comment.
Something went wrong with that request. Please try again.