Mercurial > emacs

changeset 48903:bcc54fecfcee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-insert-directory): Preserve text properties when quoting.
author Andreas Schwab <schwab@suse.de>
date Sat, 21 Dec 2002 17:04:20 +0000
parents c79f62a9de7e
children bf2ca45780be
files lisp/dired.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired.el	Fri Dec 20 13:01:10 2002 +0000
+++ b/lisp/dired.el	Sat Dec 21 17:04:20 2002 +0000
@@ -693,10 +693,16 @@
 	  (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.