Mercurial > emacs
comparison src/filelock.c @ 26012:7c6e372f60a9
(lock_file): Fix previous change.
author | Dave Love <fx@gnu.org> |
---|---|
date | Thu, 14 Oct 1999 09:19:34 +0000 |
parents | ca384fd94454 |
children | b7aa6ac26872 |
comparison
equal
deleted
inserted
replaced
26011:7a9ed2b6f30b | 26012:7c6e372f60a9 |
---|---|
556 Lisp_Object fn; | 556 Lisp_Object fn; |
557 { | 557 { |
558 register Lisp_Object attack, orig_fn, encoded_fn; | 558 register Lisp_Object attack, orig_fn, encoded_fn; |
559 register char *lfname, *locker; | 559 register char *lfname, *locker; |
560 lock_info_type lock_info; | 560 lock_info_type lock_info; |
561 struct gcpro gcpro1; | |
561 | 562 |
562 /* Don't do locking while dumping Emacs. | 563 /* Don't do locking while dumping Emacs. |
563 Uncompressing wtmp files uses call-process, which does not work | 564 Uncompressing wtmp files uses call-process, which does not work |
564 in an uninitialized Emacs. */ | 565 in an uninitialized Emacs. */ |
565 if (! NILP (Vpurify_flag)) | 566 if (! NILP (Vpurify_flag)) |
575 | 576 |
576 /* See if this file is visited and has changed on disk since it was | 577 /* See if this file is visited and has changed on disk since it was |
577 visited. */ | 578 visited. */ |
578 { | 579 { |
579 register Lisp_Object subject_buf; | 580 register Lisp_Object subject_buf; |
580 struct gcpro gcpro1; | |
581 | 581 |
582 subject_buf = get_truename_buffer (orig_fn); | 582 subject_buf = get_truename_buffer (orig_fn); |
583 | 583 |
584 if (!NILP (subject_buf) | 584 if (!NILP (subject_buf) |
585 && NILP (Fverify_visited_file_modtime (subject_buf)) | 585 && NILP (Fverify_visited_file_modtime (subject_buf)) |