Mercurial > emacs
changeset 3043:29fe3ea604a2
(dired-flag-backup-files): Speedup:
check explicitly for ~ at end of line.
(dired-flag-auto-save-files): Similar change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 24 May 1993 23:03:04 +0000 |
| parents | 793f7e0dc66b |
| children | 81c1ecaafd88 |
| files | lisp/dired.el |
| diffstat | 1 files changed, 14 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Mon May 24 22:58:54 1993 +0000 +++ b/lisp/dired.el Mon May 24 23:03:04 1993 +0000 @@ -1709,11 +1709,15 @@ (interactive "P") (let ((dired-marker-char (if unflag-p ?\040 dired-del-marker))) (dired-mark-if - (and (not (looking-at dired-re-dir)) - (let ((fn (dired-get-filename t t))) - (if fn (auto-save-file-name-p - (file-name-nondirectory fn))))) - "auto save file"))) + ;; It is less than general to check for ~ here, + ;; but it's the only way this runs fast enough. + (and (save-excursion (end-of-line) + (eq (preceding-char) ?#)) + (not (looking-at dired-re-dir)) + (let ((fn (dired-get-filename t t))) + (if fn (auto-save-file-name-p + (file-name-nondirectory fn))))) + "auto save file"))) (defun dired-flag-backup-files (&optional unflag-p) "Flag all backup files (names ending with `~') for deletion. @@ -1721,7 +1725,11 @@ (interactive "P") (let ((dired-marker-char (if unflag-p ?\040 dired-del-marker))) (dired-mark-if - (and (not (looking-at dired-re-dir)) + ;; It is less than general to check for ~ here, + ;; but it's the only way this runs fast enough. + (and (save-excursion (end-of-line) + (eq (preceding-char) ?~)) + (not (looking-at dired-re-dir)) (let ((fn (dired-get-filename t t))) (if fn (backup-file-name-p fn)))) "backup file")))