Commit 2bb27597 authored by Andreas Schwab's avatar Andreas Schwab
Browse files

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

parent 7b11d96e
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
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment