mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(dired-change-marks): If OLD is a space, don't act on non-file lines.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-06-14 11:46:56 +00:00
parent 7d66500869
commit a15a76f766
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/dired.el
View File

@ -2039,8 +2039,12 @@ OLD and NEW are both characters used to mark files."
(save-excursion
(goto-char (point-min))
(while (search-forward string nil t)
(subst-char-in-region (match-beginning 0)
(match-end 0) old new))))))
(if (if (= old ?\ )
(save-match-data
(dired-get-filename 'no-dir t))
t)
(subst-char-in-region (match-beginning 0)
(match-end 0) old new)))))))
(defun dired-unmark-all-files-no-query ()
"Remove all marks from all files in the Dired buffer."