Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
cb79b372
Commit
cb79b372
authored
Mar 31, 1995
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(dired-add-entry): If ange-ftp inserted the file's absolute name, fix that.
parent
f609ef57
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
0 deletions
+15
-0
lisp/dired-aux.el
lisp/dired-aux.el
+15
-0
No files found.
lisp/dired-aux.el
View file @
cb79b372
...
...
@@ -749,6 +749,7 @@ a prefix arg lets you edit the `ls' switches used for the new listing."
;; Entry is always for files, even if they happen to also be directories
(
let
((
opoint
(
point
))
(
cur-dir
(
dired-current-directory
))
(
orig-file-name
filename
)
(
directory
(
file-name-directory
filename
))
reason
)
(
setq
filename
(
file-name-nondirectory
filename
)
...
...
@@ -783,6 +784,20 @@ a prefix arg lets you edit the `ls' switches used for the new listing."
(
let
((
default-directory
directory
))
(
insert-directory
filename
(
concat
dired-actual-switches
"d"
)))
;; Compensate for a bug in ange-ftp.
;; It inserts the file's absolute name, rather than
;; the relative one. That may be hard to fix since it
;; is probably controlled by something in ftp.
(
goto-char
opoint
)
(
let
((
inserted-name
(
dired-get-filename
'no-dir
)))
(
if
(
file-name-directory
inserted-name
)
(
progn
(
end-of-line
)
(
delete-char
(
-
(
length
inserted-name
)))
(
insert
filename
)
(
forward-char
1
))
(
forward-line
1
)))
;; Give each line a text property recording info about it.
(
dired-insert-set-properties
opoint
(
point
))
(
forward-line
-1
)
(
if
dired-after-readin-hook
;; the subdir-alist is not affected...
...
...
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