From 4684239efa63dc1b2c1cbe37ef7d3062029f5532 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:40 -0800 Subject: Import Upstream version 3b1 --- transact.txi | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'transact.txi') diff --git a/transact.txi b/transact.txi index 4dec378..10de2ca 100644 --- a/transact.txi +++ b/transact.txi @@ -81,6 +81,24 @@ If @var{path} is locked with @var{certificate}, then @code{file-unlock!} removes @samp{#f}. @end deffn + +@defun describe-file-lock path prefix + + +@defunx describe-file-lock path +@var{path} must be a string naming a file. Optional argument @var{prefix} is a string +printed before each line of the message. @code{describe-file-lock} prints to +@code{(current-error-port)} that @var{path} is locked for writing and lists +its lock-files. + +@example +(describe-file-lock "my.txt" ">> ") +@print{} +>> "my.txt" is locked for writing by 'luser@@no.com.4829:1200536423' +>> (lock files are "~$my.txt" and ".#my.txt") +@end example +@end defun + @subsubheading File Transactions -- cgit v1.2.3