# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 796547408 0
# Node ID ab55a16a92cef277f58d802149304febabe5c862
# Parent  030b401afd0ea245e93725885d7c43e8b09bd62c
Wrap filename character quoting code with save-excursion so following forms
relying on point aren't broken.

diff -r 030b401afd0e -r ab55a16a92ce lisp/dired.el
--- a/lisp/dired.el	Wed Mar 29 21:46:19 1995 +0000
+++ b/lisp/dired.el	Thu Mar 30 07:10:08 1995 +0000
@@ -552,15 +552,16 @@
       ;; in dired-noselect.
       (insert-directory (expand-file-name dir-or-list) switches wildcard full-p))
     ;; Quote certain characters, unless ls quoted them for us.
-    (cond ((not (string-match "b" dired-actual-switches))
-	   (setq end (point-marker))
-	   (goto-char opoint)
-	   (while (search-forward "\\" end t)
-	     (replace-match "\\\\" nil t))
-	   (goto-char opoint)
-	   (while (search-forward "\^m" end t)
-	     (replace-match "\\015" nil t))
-	   (set-marker end nil)))
+    (if (not (string-match "b" dired-actual-switches))
+	(save-excursion
+	  (setq end (point-marker))
+	  (goto-char opoint)
+	  (while (search-forward "\\" end t)
+	    (replace-match "\\\\" nil t))
+	  (goto-char opoint)
+	  (while (search-forward "\^m" end t)
+	    (replace-match "\\015" nil t))
+	  (set-marker end nil)))
     (dired-insert-set-properties opoint (point)))
   (setq dired-directory dir-or-list))