Mercurial > emacs
comparison lisp/dired.el @ 12211:472729271c30
(dired-change-marks): If OLD is a space, don't act on non-file lines.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 14 Jun 1995 11:46:56 +0000 |
| parents | ad681fd69905 |
| children | a7253dcf5f9d |
comparison
equal
deleted
inserted
replaced
| 12210:a74a202e9660 | 12211:472729271c30 |
|---|---|
| 2037 (let ((string (format "\n%c" old)) | 2037 (let ((string (format "\n%c" old)) |
| 2038 (buffer-read-only)) | 2038 (buffer-read-only)) |
| 2039 (save-excursion | 2039 (save-excursion |
| 2040 (goto-char (point-min)) | 2040 (goto-char (point-min)) |
| 2041 (while (search-forward string nil t) | 2041 (while (search-forward string nil t) |
| 2042 (subst-char-in-region (match-beginning 0) | 2042 (if (if (= old ?\ ) |
| 2043 (match-end 0) old new)))))) | 2043 (save-match-data |
| 2044 (dired-get-filename 'no-dir t)) | |
| 2045 t) | |
| 2046 (subst-char-in-region (match-beginning 0) | |
| 2047 (match-end 0) old new))))))) | |
| 2044 | 2048 |
| 2045 (defun dired-unmark-all-files-no-query () | 2049 (defun dired-unmark-all-files-no-query () |
| 2046 "Remove all marks from all files in the Dired buffer." | 2050 "Remove all marks from all files in the Dired buffer." |
| 2047 (interactive) | 2051 (interactive) |
| 2048 (dired-unmark-all-files ?\r)) | 2052 (dired-unmark-all-files ?\r)) |