(dired-insert-directory): Preserve text properties when quoting.

2 files changed, 13 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 167c1f73548..3dbf8d5e029 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-21  Andreas Schwab  <schwab@suse.de>
+
+        * dired.el (dired-insert-directory): Preserve text properties
+        when quoting.
+
 2002-12-20  Francesco Potort,Al(B  <pot@gnu.org>
 
         * mail/undigest.el (rmail-mail-separator): Renamed from
diff --git a/lisp/dired.el b/lisp/dired.el
index 68c6ffc8bc1..11669400ad6 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -693,10 +693,16 @@ If HDR is non-nil, insert a header line with the directory name."
           (setq end (point-marker))
           (goto-char opoint)
           (while (search-forward "\\" end t)
-            (replace-match "\\\\" nil t))
+            (replace-match (apply #'propertize
+                                  "\\\\"
+                                  (text-properties-at (match-beginning 0)))
+                           nil t))
           (goto-char opoint)
           (while (search-forward "\^m" end t)
-            (replace-match "\\015" nil t))
+            (replace-match (apply #'propertize
+                                  "\\015"
+                                  (text-properties-at (match-beginning 0)))
+                           nil t))
           (set-marker end nil)))
     (dired-insert-set-properties opoint (point))
     ;; If we used --dired and it worked, the lines are already indented.