equal
deleted
inserted
replaced
616 ;; Enable 'a' command. |
616 ;; Enable 'a' command. |
617 (put 'dired-find-alternate-file 'disabled nil) |
617 (put 'dired-find-alternate-file 'disabled nil) |
618 ) |
618 ) |
619 |
619 |
620 (defun my-file-name-tmp-p (file) |
620 (defun my-file-name-tmp-p (file) |
621 (string-match "\\(?:^#.*#\\|~\\|\\.orig\\|\\.log\\|^.?\\.diff\\|\\.stackdump\\|\\.rej\\)\\'" (file-name-nondirectory file))) |
621 (string-match |
|
622 `,(concat |
|
623 "\\(?:^#.*#\\|~\\|^.?\\.diff\\|" |
|
624 "\\." (regexp-opt '("base" "local" "orig" "other" "log" "stackdump" "rej")) |
|
625 "\\)\\'") |
|
626 (file-name-nondirectory file))) |
622 |
627 |
623 (defun my-dired-flag-tmp-files () |
628 (defun my-dired-flag-tmp-files () |
624 "Flag all temporary files for deletion." |
629 "Flag all temporary files for deletion." |
625 (interactive) |
630 (interactive) |
626 (dired-mark-if |
631 (dired-mark-if |