# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739178758 0
# Node ID a917a964bef8f6df7c5873b03c9a6930695230cb
# Parent  c079a2d6cf0e5caec32e5dfa1d006e93f6383b97
(dired-change-marks): Just ding if one arg is RET.
Search for strings, not regexps.  Use subst-char-in-region.

diff -r c079a2d6cf0e -r a917a964bef8 lisp/dired.el
--- a/lisp/dired.el	Fri Jun 04 07:14:47 1993 +0000
+++ b/lisp/dired.el	Fri Jun 04 07:25:58 1993 +0000
@@ -1750,14 +1750,15 @@
 	  (new (progn (message  "Change %c marks to (new mark): " old)
 		      (read-char))))
      (list old new)))
-  (let ((regexp (format "^%s" (regexp-quote old)))
-	(buffer-read-only))
-    (save-excursion
-      (goto-char (point-min))
-      (while (re-search-forward regexp nil t)
-	(beginning-of-line)
-	(delete-region (point) (1+ (point)))
-	(insert-char new 1)))))
+  (if (or (eq old ?\r) (eq new ?\r))
+      (ding)
+    (let ((string (format "\n%c" old))
+	  (buffer-read-only))
+      (save-excursion
+	(goto-char (point-min))
+	(while (search-forward string nil t)
+	  (subst-char-in-region (match-beginning 0)
+				(match-end 0) old new))))))
 
 (defun dired-unmark-all-files (mark &optional arg)
   "Remove a specific mark or any mark from every file.