diff options
| -rw-r--r-- | lisp/dired.el | 19 |
1 files changed, 10 insertions, 9 deletions
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)) |