equal
deleted
inserted
replaced
610 ;; Enable 'a' command. |
610 ;; Enable 'a' command. |
611 (put 'dired-find-alternate-file 'disabled nil) |
611 (put 'dired-find-alternate-file 'disabled nil) |
612 ) |
612 ) |
613 |
613 |
614 (defun my-file-name-tmp-p (file) |
614 (defun my-file-name-tmp-p (file) |
615 (string-match "\\(^#.*#\\|~\\|\\.orig\\|\\.log\\|^.?\\.diff\\|.stackdump\\)\\'" (file-name-nondirectory file))) |
615 (string-match "\\(?:^#.*#\\|~\\|\\.orig\\|\\.log\\|^.?\\.diff\\|\\.stackdump\\|\\.rej\\)\\'" (file-name-nondirectory file))) |
616 |
616 |
617 (defun my-dired-flag-tmp-files () |
617 (defun my-dired-flag-tmp-files () |
618 "Flag all temporary files for deletion." |
618 "Flag all temporary files for deletion." |
619 (interactive) |
619 (interactive) |
620 (dired-mark-if |
620 (dired-mark-if |