Mercurial > emacs
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 { |