comparison src/filelock.c @ 26361:95491c6d08de

(Ffile_locked_p): Make FILENAME a required argument.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 05 Nov 1999 14:04:40 +0000
parents b7aa6ac26872
children e6e6add72493
comparison
equal deleted inserted replaced
26360:5370b1c171ef 26361:95491c6d08de
683 if (BUF_SAVE_MODIFF (buffer) < BUF_MODIFF (buffer) 683 if (BUF_SAVE_MODIFF (buffer) < BUF_MODIFF (buffer)
684 && STRINGP (buffer->file_truename)) 684 && STRINGP (buffer->file_truename))
685 unlock_file (buffer->file_truename); 685 unlock_file (buffer->file_truename);
686 } 686 }
687 687
688 DEFUN ("file-locked-p", Ffile_locked_p, Sfile_locked_p, 0, 1, 0, 688 DEFUN ("file-locked-p", Ffile_locked_p, Sfile_locked_p, 1, 1, 0,
689 "Return nil if the FILENAME is not locked,\n\ 689 "Return nil if the FILENAME is not locked,\n\
690 t if it is locked by you, else a string of the name of the locker.") 690 t if it is locked by you, else a string of the name of the locker.")
691 (filename) 691 (filename)
692 Lisp_Object filename; 692 Lisp_Object filename;
693 { 693 {