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
b95ddab3
Commit
b95ddab3
authored
Feb 06, 2002
by
Richard M. Stallman
Browse files
(dired-get-filename): Add /: when appropriate
to avoid taking a local name as remote.
parent
c736f678
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
2 deletions
+13
-2
lisp/dired.el
lisp/dired.el
+13
-2
No files found.
lisp/dired.el
View file @
b95ddab3
...
...
@@ -1425,14 +1425,25 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on
(
not
default-file-name-coding-system
)
(
setq
file
(
encode-coding-string
file
buffer-file-coding-system
)))
(
cond
((
null
file
)
nil
)
((
eq
localp
'verbatim
)
file
)
((
and
(
eq
localp
'no-dir
)
already-absolute
)
(
file-name-nondirectory
file
))
((
or
already-absolute
(
eq
localp
'no-dir
))
(
already-absolute
(
if
(
find-file-name-handler
file
nil
)
(
concat
"/:"
file
)
file
))
((
eq
localp
'no-dir
)
file
)
((
equal
(
dired-current-directory
)
"/"
)
(
setq
file
(
concat
(
dired-current-directory
localp
)
file
))
(
if
(
find-file-name-handler
file
nil
)
(
concat
"/:"
file
)
file
))
(
t
(
and
file
(
concat
(
dired-current-directory
localp
)
file
)))))
)
(
concat
(
dired-current-directory
localp
)
file
)))))
(
defun
dired-string-replace-match
(
regexp
string
newtext
&optional
literal
global
)
...
...
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