# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1284462013 -10800
# Node ID a9adec4fbcbfb46e12a56e00cd49d0c4b75fe825
# Parent  925f1b143a3d97ef2fe4d5e77712b76eafd10c56
Mark temporary files in dired by '`'.

diff -r 925f1b143a3d -r a9adec4fbcbf .emacs-my
--- 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.