Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2bb27597
Commit
2bb27597
authored
Dec 21, 2002
by
Andreas Schwab
Browse files
(dired-insert-directory): Preserve text properties when quoting.
parent
7b11d96e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
2 deletions
+13
-2
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/dired.el
lisp/dired.el
+8
-2
No files found.
lisp/ChangeLog
View file @
2bb27597
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
...
...
lisp/dired.el
View file @
2bb27597
...
...
@@ -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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment