 ;;;; (:require-patch "")
 ;;;; HISTORY :
 ;;;; $Log$
+;;;; Revision 3.20  2015/07/20 16:41:40  mgautier
+;;;; - lock file with the user using emacs
+;;;;
 ;;;; Revision 3.19  2015/06/29 08:17:24  mgautier
 ;;;; - remove useless message
 ;;;;

	      (message "File locked by %s" status))
	     (t
	      (message "Err: Unable to lock file")))))))
	      

(defun lock-file()
  (interactive)

	      (message "Err: Unable to lock file"))))
      (:unlock
       (cond ((string-equal status "LOCKED-BY-YOURSELF")
	      (fi:eval-in-lisp (format "(let ((archive::*current-user* \"%s\")) (jvs::unlock-file-by-name \"%s\"))" user script-name))
	      (message "File unlocked"))
	     ((string-equal status "NOT-LOCKED")
	      (message "File already unlocked"))
