1081 (when (>= emacs-major-version 22) |
1081 (when (>= emacs-major-version 22) |
1082 ;; Enable 'a' command. |
1082 ;; Enable 'a' command. |
1083 (put 'dired-find-alternate-file 'disabled nil) |
1083 (put 'dired-find-alternate-file 'disabled nil) |
1084 ) |
1084 ) |
1085 |
1085 |
1086 (defun my-file-name-tmp-p (file) |
1086 (defvar my--file-name-tmp-refex |
1087 (string-match |
1087 (concat |
1088 `,(concat |
1088 "\\(?:^#.*#" |
1089 "\\(?:^#.*#\\|~\\|" |
1089 "\\|~" |
1090 "\\." (regexp-opt '("base" "local" "orig" "other" "rej" "diff" "log" "stackdump" "pyc" "pyo")) |
1090 "\\|\\." (regexp-opt '("base" "local" "orig" "other" "rej" "diff" "log" "stackdump" "pyc" "pyo")) |
1091 "\\)\\'") |
1091 "\\|\\.log\\.[0-9]+" |
1092 (or (and (file-directory-p file) "") (file-name-nondirectory file)))) |
1092 "\\)\\'") |
1093 |
1093 "Rule to detect temp/backup files.") |
1094 (defun my-dired-flag-tmp-files () |
1094 |
|
1095 (defun my--file-name-tmp-p (file) |
|
1096 (string-match my--file-name-tmp-refex |
|
1097 (or (and (file-directory-p file) "") (file-name-nondirectory file)))) |
|
1098 |
|
1099 (defun my--dired-flag-tmp-files () |
1095 "Flag all temporary files for deletion." |
1100 "Flag all temporary files for deletion." |
1096 (interactive) |
1101 (interactive) |
1097 (dired-mark-if |
1102 (dired-mark-if |
1098 (let ( (fn (dired-get-filename 'verbatim t)) ) |
1103 (let ( (fn (dired-get-filename 'verbatim t)) ) |
1099 (and fn (my-file-name-tmp-p fn)) ) |
1104 (and fn (my--file-name-tmp-p fn)) ) |
1100 "backup file" |
1105 "backup file")) |
1101 ) |
1106 |
1102 ) |
1107 (define-key dired-mode-map (kbd "`") 'my--dired-flag-tmp-files) |
1103 |
|
1104 (define-key dired-mode-map (kbd "`") 'my-dired-flag-tmp-files) |
|
1105 |
1108 |
1106 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1109 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1107 (message "ls-lisp, dired ls") |
1110 (message "ls-lisp, dired ls") |
1108 |
1111 |
1109 ;; If non-nil - use 'insert-directory-program', which I dislike. |
1112 ;; If non-nil - use 'insert-directory-program', which I dislike. |