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

diff --git a/lisp/dired.el b/lisp/dired.el
index d049ee706d804b523de0b1a648a9f42869eabc2c..4afb66871cf96edae7ce02e0d75ff9d862cb540d 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -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."