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
06dd5ef7
Commit
06dd5ef7
authored
Nov 27, 2002
by
Jason Rumney
Browse files
(file-truename): Canonicalize non-existent names on w32.
parent
4bc12672
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
7 deletions
+6
-7
lisp/files.el
lisp/files.el
+6
-7
No files found.
lisp/files.el
View file @
06dd5ef7
...
...
@@ -675,18 +675,17 @@ Do not specify them in other calls."
;; it is stored on disk (expanding short name aliases with the full
;; name in the process).
(
if
(
eq
system-type
'windows-nt
)
(
let
((
handler
(
find-file-name-handler
filename
'file-truename
))
newname
)
(
let
((
handler
(
find-file-name-handler
filename
'file-truename
)))
;; For file name that has a special handler, call handler.
;; This is so that ange-ftp can save time by doing a no-op.
(
if
handler
(
setq
filename
(
funcall
handler
'file-truename
filename
))
;; If filename contains a wildcard, newname will be the old name.
(
if
(
string-match
"[[*?]"
filename
)
(
setq
newname
filename
)
;;
If filename doesn't exist, newname will be nil
.
(
setq
newname
(
w32-long-file-name
filename
)
))
(
setq
filename
(
or
new
name
filename
)))
(
unless
(
string-match
"[[*?]"
filename
)
;; If filename exists, use the long name, otherwise
;;
canonicalize the name, to handle case differences
.
(
setq
filename
(
or
(
w32-long-file-name
filename
)
(
untranslated-canonical-
name
filename
)))
))
(
setq
done
t
)))
;; If this file directly leads to a link, process that iteratively
...
...
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