procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(dired-garbage-files-regexp): New variable.

Browse source 
(dired-flag-garbage-files): New command.
(dired-mode-map): Put dired-flag-garbage-files on & and in menu.
This commit is contained in:
Richard M. Stallman 1997-01-04 00:10:30 +00:00
parent f374777d3c
commit 84d3f6e878
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/dired.el
View file

@ -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."