/[emacs]/emacs/src/filelock.c
ViewVC logotype

Diff of /emacs/src/filelock.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.94 by pj, Tue Nov 13 07:45:44 2001 UTC revision 1.95 by rms, Wed Nov 14 00:09:06 2001 UTC
# Line 692  or else nothing is done if current buffe Line 692  or else nothing is done if current buffe
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
# Line 714  unlock_buffer (buffer) Line 715  unlock_buffer (buffer)
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  {  {

Legend:
Removed from v.1.94  
changed lines
  Added in v.1.95

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26