equal
deleted
inserted
replaced
791 (string-match |
791 (string-match |
792 `,(concat |
792 `,(concat |
793 "\\(?:^#.*#\\|~\\|^.?\\.diff\\|" |
793 "\\(?:^#.*#\\|~\\|^.?\\.diff\\|" |
794 "\\." (regexp-opt '("base" "local" "orig" "other" "log" "stackdump" "rej")) |
794 "\\." (regexp-opt '("base" "local" "orig" "other" "log" "stackdump" "rej")) |
795 "\\)\\'") |
795 "\\)\\'") |
796 (file-name-nondirectory file))) |
796 (or (and (file-directory-p file) "") (file-name-nondirectory file)))) |
797 |
797 |
798 (defun my-dired-flag-tmp-files () |
798 (defun my-dired-flag-tmp-files () |
799 "Flag all temporary files for deletion." |
799 "Flag all temporary files for deletion." |
800 (interactive) |
800 (interactive) |
801 (dired-mark-if |
801 (dired-mark-if |