equal
deleted
inserted
replaced
514 |
514 |
515 (defun my-dired-flag-tmp-files () |
515 (defun my-dired-flag-tmp-files () |
516 "Flag all temporary files for deletion." |
516 "Flag all temporary files for deletion." |
517 (interactive) |
517 (interactive) |
518 (dired-mark-if |
518 (dired-mark-if |
519 ;; (let ( (fn (dired-get-filename)) ) |
|
520 ;; (if fn (backup-file-name-p fn))) |
|
521 (let ( (fn (dired-get-filename 'verbatim t)) ) |
519 (let ( (fn (dired-get-filename 'verbatim t)) ) |
522 (and fn (my-file-name-tmp-p fn)) ) |
520 (and fn (my-file-name-tmp-p fn)) ) |
523 "backup file" |
521 "backup file" |
524 ) |
522 ) |
525 ) |
523 ) |