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
8af8a9ca
Commit
8af8a9ca
authored
Oct 13, 1999
by
Dave Love
Browse files
(lock_file): Move gcpro of `fn'.
parent
accd1266
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
src/filelock.c
src/filelock.c
+2
-2
No files found.
src/filelock.c
View file @
8af8a9ca
...
...
@@ -566,6 +566,7 @@ lock_file (fn)
return
;
orig_fn
=
fn
;
GCPRO1
(
fn
);
fn
=
Fexpand_file_name
(
fn
,
Qnil
);
encoded_fn
=
ENCODE_FILE
(
fn
);
...
...
@@ -579,15 +580,14 @@ lock_file (fn)
struct
gcpro
gcpro1
;
subject_buf
=
get_truename_buffer
(
orig_fn
);
GCPRO1
(
fn
);
if
(
!
NILP
(
subject_buf
)
&&
NILP
(
Fverify_visited_file_modtime
(
subject_buf
))
&&
!
NILP
(
Ffile_exists_p
(
fn
)))
call1
(
intern
(
"ask-user-about-supersession-threat"
),
fn
);
UNGCPRO
;
}
UNGCPRO
;
/* Try to lock the lock. */
if
(
lock_if_free
(
&
lock_info
,
lfname
)
<=
0
)
...
...
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