diff options
Diffstat (limited to 'transact.txi')
| -rw-r--r-- | transact.txi | 18 |
1 files changed, 18 insertions, 0 deletions
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 |