Mark temporary files in dired by '`'.
--- a/.emacs-my Mon Sep 13 18:03:12 2010 +0300
+++ b/.emacs-my Tue Sep 14 14:00:13 2010 +0300
@@ -495,6 +495,23 @@
(put 'dired-find-alternate-file 'disabled nil)
)
+(defun my-file-name-tmp-p (file)
+ (string-match "\\(^#.*#\\|~\\|\\.orig\\|\\.log\\)\\'" (file-name-nondirectory file)))
+
+(defun my-dired-flag-tmp-files ()
+ "Flag all temporary files for deletion."
+ (interactive)
+ (dired-mark-if
+ ;; (let ( (fn (dired-get-filename)) )
+ ;; (if fn (backup-file-name-p fn)))
+ (let ( (fn (dired-get-filename 'verbatim t)) )
+ (and fn (my-file-name-tmp-p fn)) )
+ "backup file"
+ )
+ )
+
+(define-key dired-mode-map (kbd "`") 'my-dired-flag-tmp-files)
+
;;; ----------------------------------------------------------------
;;; ls-lisp, dired ls.