692 |
|
|
693 |
DEFUN ("unlock-buffer", Funlock_buffer, Sunlock_buffer, |
DEFUN ("unlock-buffer", Funlock_buffer, Sunlock_buffer, |
694 |
0, 0, 0, |
0, 0, 0, |
695 |
doc: /* Unlock the file visited in the current buffer, |
doc: /* Unlock the file visited in the current buffer. |
696 |
if it should normally be locked. */) |
If the buffer is not modified, this does nothing because the file |
697 |
|
should not be locked in that case. */) |
698 |
() |
() |
699 |
{ |
{ |
700 |
if (SAVE_MODIFF < MODIFF |
if (SAVE_MODIFF < MODIFF |
715 |
} |
} |
716 |
|
|
717 |
DEFUN ("file-locked-p", Ffile_locked_p, Sfile_locked_p, 1, 1, 0, |
DEFUN ("file-locked-p", Ffile_locked_p, Sfile_locked_p, 1, 1, 0, |
718 |
doc: /* Return nil if the FILENAME is not locked, |
doc: /* Return a value indicating whether FILENAME is locked. |
719 |
t if it is locked by you, else a string of the name of the locker. */) |
The value is nil if the FILENAME is not locked, |
720 |
|
t if it is locked by you, else a string saying which user has locked it. */) |
721 |
(filename) |
(filename) |
722 |
Lisp_Object filename; |
Lisp_Object filename; |
723 |
{ |
{ |