From 347dfc36da34482cea1f7eb38d811e2ab6d19fe7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 4 Jan 1997 00:10:30 +0000 Subject: (dired-garbage-files-regexp): New variable. (dired-flag-garbage-files): New command. (dired-mode-map): Put dired-flag-garbage-files on & and in menu. --- lisp/dired.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/lisp/dired.el b/lisp/dired.el index 34526f4490b..ffb6bd22831 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -769,6 +769,7 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." (define-key map "#" 'dired-flag-auto-save-files) (define-key map "." 'dired-clean-directory) (define-key map "~" 'dired-flag-backup-files) + (define-key map "&" 'dired-flag-garbage-files) ;; Upper case keys (except !) for operating on the marked files (define-key map "A" 'dired-do-search) (define-key map "C" 'dired-do-copy) @@ -958,6 +959,8 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." '("Mark Old Backups" . dired-clean-directory)) (define-key map [menu-bar mark executables] '("Mark Executables" . dired-mark-executables)) + (define-key map [menu-bar mark garbage-files] + '("Flag Garbage Files" . dired-flag-garbage-files)) (define-key map [menu-bar mark backup-files] '("Flag Backup Files" . dired-flag-backup-files)) (define-key map [menu-bar mark auto-save-files] @@ -2068,6 +2071,15 @@ A prefix argument says to unflag those files instead." (file-name-nondirectory fn))))) "auto save file"))) +(defvar dired-garbage-files-regexp + "\\.log$\\|\\.toc$\\|.dvi$|\\.bak$\\|\\.orig$\\|\\.rej$" + "*Regular expression to match \"garbage\" files for `dired-flag-garbage-files'.") + +(defun dired-flag-garbage-files () + (interactive) + "Flag for deletion all files that match `dired-garbage-files-regexp'." + (dired-flag-files-regexp dired-garbage-files-regexp)) + (defun dired-flag-backup-files (&optional unflag-p) "Flag all backup files (names ending with `~') for deletion. With prefix argument, unflag these files." -- cgit v1.2.1