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
942dc838
Commit
942dc838
authored
Jul 16, 2002
by
Ken Raeburn
Browse files
* fileio.c (Fmake_symbolic_link, Fexpand_file_name): Use SSET.
(Fread_file_name): Use SREF, SSET.
parent
d549c5db
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
7 deletions
+7
-7
src/fileio.c
src/fileio.c
+7
-7
No files found.
src/fileio.c
View file @
942dc838
...
...
@@ -270,7 +270,7 @@ report_file_error (string, data)
/* System error messages are capitalized. Downcase the initial
unless it is followed by a slash. */
if (SREF (errstring, 1) != '/')
S
REF
(
errstring
,
0
)
=
DOWNCASE
(
SREF
(
errstring
,
0
));
S
SET
(errstring, 0
,
DOWNCASE (SREF (errstring, 0))
)
;
Fsignal (Qfile_error,
Fcons (build_string (string), Fcons (errstring, data)));
...
...
@@ -1301,8 +1301,8 @@ See also the function `substitute-in-file-name'. */)
if (strcmp (nm - 2, SDATA (name)) != 0)
{
name = make_string (nm - 2, p - nm + 2);
S
REF
(
name
,
0
)
=
DRIVE_LETTER
(
drive
);
S
REF
(
name
,
1
)
=
':'
;
S
SET
(name, 0
,
DRIVE_LETTER (drive)
)
;
S
SET
(name, 1
,
':'
)
;
}
return name;
#else /* not DOS_NT */
...
...
@@ -6015,22 +6015,22 @@ provides a file dialog box. */)
if (homedir != 0
&& STRINGP (dir)
&& !strncmp (homedir, SDATA (dir), strlen (homedir))
&&
IS_DIRECTORY_SEP
(
S
DATA
(
dir
)[
strlen
(
homedir
)
]
))
&& IS_DIRECTORY_SEP (S
REF
(dir
,
strlen (homedir)
)
))
{
dir = make_string (SDATA (dir) + strlen (homedir) - 1,
SBYTES (dir) - strlen (homedir) + 1);
S
REF
(
dir
,
0
)
=
'~'
;
S
SET
(dir, 0
,
'~'
)
;
}
/* Likewise for default_filename. */
if (homedir != 0
&& STRINGP (default_filename)
&& !strncmp (homedir, SDATA (default_filename), strlen (homedir))
&&
IS_DIRECTORY_SEP
(
S
DATA
(
default_filename
)[
strlen
(
homedir
)
]
))
&& IS_DIRECTORY_SEP (S
REF
(default_filename
,
strlen (homedir)
)
))
{
default_filename
= make_string (SDATA (default_filename) + strlen (homedir) - 1,
SBYTES (default_filename) - strlen (homedir) + 1);
S
REF
(
default_filename
,
0
)
=
'~'
;
S
SET
(default_filename, 0
,
'~'
)
;
}
if (!NILP (default_filename))
{
...
...
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