mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Andreas Schwab 2002-12-21 17:06:54 +00:00
parent 7b11d96e33
commit 2bb27597b3
2 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

10
lisp/dired.el
View file

@ -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.