equal
deleted
inserted
replaced
507 ;; Enable 'a' command. |
507 ;; Enable 'a' command. |
508 (put 'dired-find-alternate-file 'disabled nil) |
508 (put 'dired-find-alternate-file 'disabled nil) |
509 ) |
509 ) |
510 |
510 |
511 (defun my-file-name-tmp-p (file) |
511 (defun my-file-name-tmp-p (file) |
512 (string-match "\\(^#.*#\\|~\\|\\.orig\\|\\.log\\|^.?\\.diff\\)\\'" (file-name-nondirectory file))) |
512 (string-match "\\(^#.*#\\|~\\|\\.orig\\|\\.log\\|^.?\\.diff\\|.stackdump\\)\\'" (file-name-nondirectory file))) |
513 |
513 |
514 (defun my-dired-flag-tmp-files () |
514 (defun my-dired-flag-tmp-files () |
515 "Flag all temporary files for deletion." |
515 "Flag all temporary files for deletion." |
516 (interactive) |
516 (interactive) |
517 (dired-mark-if |
517 (dired-mark-if |