# HG changeset patch # User Oleksandr Gavenko # Date 1310165585 -10800 # Node ID 32cbaa8f4368b6de43800e9b6b62eb56831c9c35 # Parent 994de19746160f5c3663739ff7c373270223a348 Add .base .local .other to list of tmp files. diff -r 994de1974616 -r 32cbaa8f4368 .emacs-my --- a/.emacs-my Thu Jul 07 09:09:48 2011 +0300 +++ b/.emacs-my Sat Jul 09 01:53:05 2011 +0300 @@ -618,7 +618,12 @@ ) (defun my-file-name-tmp-p (file) - (string-match "\\(?:^#.*#\\|~\\|\\.orig\\|\\.log\\|^.?\\.diff\\|\\.stackdump\\|\\.rej\\)\\'" (file-name-nondirectory file))) + (string-match + `,(concat + "\\(?:^#.*#\\|~\\|^.?\\.diff\\|" + "\\." (regexp-opt '("base" "local" "orig" "other" "log" "stackdump" "rej")) + "\\)\\'") + (file-name-nondirectory file))) (defun my-dired-flag-tmp-files () "Flag all temporary files for deletion."