# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803130416 0
# Node ID 472729271c303a44ad9520b783fb6f042c292a65
# Parent  a74a202e96609f945dbfb0c88d0c773e0c1d2563
(dired-change-marks): If OLD is a space, don't act on non-file lines.

diff -r a74a202e9660 -r 472729271c30 lisp/dired.el
--- a/lisp/dired.el	Wed Jun 14 11:16:17 1995 +0000
+++ b/lisp/dired.el	Wed Jun 14 11:46:56 1995 +0000
@@ -2039,8 +2039,12 @@
       (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."