Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
298b760e
Commit
298b760e
authored
Aug 04, 1993
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(expand_and_dir_to_file): Remove final / by copying abspath.
parent
75993094
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
10 deletions
+3
-10
src/fileio.c
src/fileio.c
+3
-10
No files found.
src/fileio.c
View file @
298b760e
...
...
@@ -1506,11 +1506,7 @@ duplicates what `expand-file-name' does.")
}
/* A slightly faster and more convenient way to get
(directory-file-name (expand-file-name FOO)). The return value may
have had its last character zapped with a '\0' character, meaning
that it is acceptable to system calls, but not to other lisp
functions. Callers should make sure that the return value doesn't
escape. */
(directory-file-name (expand-file-name FOO)). */
Lisp_Object
expand_and_dir_to_file
(
filename
,
defdir
)
...
...
@@ -1530,11 +1526,8 @@ expand_and_dir_to_file (filename, defdir)
stat behaves differently depending! */
if
(
XSTRING
(
abspath
)
->
size
>
1
&&
XSTRING
(
abspath
)
->
data
[
XSTRING
(
abspath
)
->
size
-
1
]
==
'/'
)
{
if
(
EQ
(
abspath
,
filename
))
abspath
=
Fcopy_sequence
(
abspath
);
XSTRING
(
abspath
)
->
data
[
XSTRING
(
abspath
)
->
size
-
1
]
=
0
;
}
abspath
=
Fsubstring
(
abspath
,
make_number
(
0
),
make_number
(
XSTRING
(
abspath
)
->
size
-
1
));
#endif
return
abspath
;
}
...
...
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