diff options
| author | Richard M. Stallman | 1993-06-05 17:41:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-05 17:41:50 +0000 |
| commit | 0102ea2d9549a59aa65bb53b3ba5206243145929 (patch) | |
| tree | 70676cca4c356d8d177422567a27ae2f35d3350a | |
| parent | e066c2ae2d8472975e28d97dce0e5c76f760b65f (diff) | |
| download | emacs-0102ea2d9549a59aa65bb53b3ba5206243145929.tar.gz emacs-0102ea2d9549a59aa65bb53b3ba5206243145929.zip | |
(dired-flag-backup-files): Handle `*' made by `ls -F'.
| -rw-r--r-- | lisp/dired.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 6dacbbd3db5..9d0fd907eea 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1735,7 +1735,16 @@ With prefix argument, unflag these files." | |||
| 1735 | ;; It is less than general to check for ~ here, | 1735 | ;; It is less than general to check for ~ here, |
| 1736 | ;; but it's the only way this runs fast enough. | 1736 | ;; but it's the only way this runs fast enough. |
| 1737 | (and (save-excursion (end-of-line) | 1737 | (and (save-excursion (end-of-line) |
| 1738 | (eq (preceding-char) ?~)) | 1738 | (or |
| 1739 | (eq (preceding-char) ?~) | ||
| 1740 | ;; Handle executables in case of -F option. | ||
| 1741 | ;; We need not worry about the other kinds | ||
| 1742 | ;; of markings that -F makes, since they won't | ||
| 1743 | ;; appear on real backup files. | ||
| 1744 | (if (eq (preceding-char) ?*) | ||
| 1745 | (progn | ||
| 1746 | (forward-char -1) | ||
| 1747 | (eq (preceding-char) ?~))))) | ||
| 1739 | (not (looking-at dired-re-dir)) | 1748 | (not (looking-at dired-re-dir)) |
| 1740 | (let ((fn (dired-get-filename t t))) | 1749 | (let ((fn (dired-get-filename t t))) |
| 1741 | (if fn (backup-file-name-p fn)))) | 1750 | (if fn (backup-file-name-p fn)))) |