From: Simon Marshall <simon@gnu.org>
Date: Thu, 30 Mar 1995 07:10:08 +0000 (+0000)
Subject: Wrap filename character quoting code with save-excursion so following forms
X-Git-Tag: emacs-19.34~4707
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad63249242d2480fff71cbcb880441695e4a46e9;p=emacs.git

Wrap filename character quoting code with save-excursion so following forms
relying on point aren't broken.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index 03637103a34..7c8e65a23d9 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -552,15 +552,16 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
       ;; 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))