diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-29 00:28:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-29 00:28:28 +0000 |
| commit | 3036594f2ac4967e7c89efaec9fcba574eefdf30 (patch) | |
| tree | c7874b2d4ce96d9f4f5ebff770251c6b7d878102 /src/filelock.c | |
| parent | 35d6372510105dac02121424a88221c5737dd020 (diff) | |
| download | emacs-3036594f2ac4967e7c89efaec9fcba574eefdf30.tar.gz | |
(lock_file): gcpro `fn'.
Diffstat (limited to 'src/filelock.c')
| -rw-r--r-- | src/filelock.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/filelock.c b/src/filelock.c index 7da65d0dc56..d8e30acc9d5 100644 --- a/src/filelock.c +++ b/src/filelock.c @@ -384,11 +384,17 @@ lock_file (fn) visited. */ { register Lisp_Object subject_buf; + struct 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; } /* Try to lock the lock. */ |