Mercurial > hg > xemacs-beta

comparison src/filelock.c @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 9ee227acff29
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
404 unlock_file (b->file_truename); 404 unlock_file (b->file_truename);
405 } 405 }
406 } 406 }
407 407
408 408
409 DEFUN ("lock-buffer", Flock_buffer, Slock_buffer, 409 DEFUN ("lock-buffer", Flock_buffer, Slock_buffer, 0, 1, 0 /*
410 0, 1, 0 /*
411 Lock FILE, if current buffer is modified. 410 Lock FILE, if current buffer is modified.
412 FILE defaults to current buffer's visited file, 411 FILE defaults to current buffer's visited file,
413 or else nothing is done if current buffer isn't visiting a file. 412 or else nothing is done if current buffer isn't visiting a file.
414 */ ) 413 */ )
415 (fn) 414 (fn)
423 && !NILP (fn)) 422 && !NILP (fn))
424 lock_file (fn); 423 lock_file (fn);
425 return Qnil; 424 return Qnil;
426 } 425 }
427 426
428 DEFUN ("unlock-buffer", Funlock_buffer, Sunlock_buffer, 427 DEFUN ("unlock-buffer", Funlock_buffer, Sunlock_buffer, 0, 0, 0 /*
429 0, 0, 0 /*
430 Unlock the file visited in the current buffer, 428 Unlock the file visited in the current buffer,
431 if it should normally be locked. 429 if it should normally be locked.
432 */ ) 430 */ )
433 () 431 ()
434 { 432 {