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))