(vc-fetch-master-properties): Recognize cvs status "Unresolved Conflict".

(vc-locking-user): Count cvs status `unresolved-conflict' as "locked".
(vc-checkout-model): New property and access function (still simplistic).
(vc-after-save-hook): New function.
(vc-mode-line): When the file is locked by somebody else, make the
buffer read-only.  (Formerly this was only done for root.)  Don't
write-protect the buffer if the file is unlocked.  Instead, install
vc-after-save-hook, which "locks" the file when modifications are
saved.

1 files changed, 33 insertions, 11 deletions

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 9b01ea0fc9d..b55e286ebee 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -319,6 +319,8 @@ value of this flag.")
                (vc-file-setprop file 'vc-cvs-status 'needs-merge))
               ((string-match "Needs Checkout" status)
                (vc-file-setprop file 'vc-cvs-status 'needs-checkout))
+              ((string-match "Unresolved Conflict" status)
+               (vc-file-setprop file 'vc-cvs-status 'unresolved-conflict))
               (t (vc-file-setprop file 'vc-cvs-status nil))))))
     (if (get-buffer "*vc-info*")
         (kill-buffer (get-buffer "*vc-info*")))))
@@ -447,6 +449,16 @@ value of this flag.")
                    (vc-file-setprop file 'vc-name (car name-and-type))
                    (vc-file-setprop file 'vc-backend (cdr name-and-type))))))))
 
+(defun vc-checkout-model (file)
+  ;; Return `manual' if the user has to type C-x C-q to check out FILE.
+  ;; Return `automatic' if the file can be modified without locking it first.
+  ;; Simplistic version, only returns the default for each backend.
+  (cond ((vc-file-getprop file 'vc-checkout-model))
+        ((vc-file-setprop file 'vc-checkout-model
+                         (cond ((eq (vc-backend file) 'SCCS) 'manual)
+                               ((eq (vc-backend file) 'RCS)  'manual)
+                               ((eq (vc-backend file) 'CVS)  'automatic))))))
+
 ;;; properties indicating the locking state
 
 (defun vc-cvs-status (file)
@@ -495,7 +507,8 @@ value of this flag.")
        ;; in the CVS case, check the status
        ((eq (vc-backend file) 'CVS)
         (if (and (not (eq (vc-cvs-status file) 'locally-modified))
-                 (not (eq (vc-cvs-status file) 'needs-merge)))
+                 (not (eq (vc-cvs-status file) 'needs-merge))
+                 (not (eq (vc-cvs-status file) 'unresolved-conflict)))
             (vc-file-setprop file 'vc-locking-user 'none)
           ;; The expression below should return the username of the owner
           ;; of the file.  It doesn't.  It returns the username if it is
@@ -722,6 +735,12 @@ of the buffer.  With prefix argument, ask for version number."
     (toggle-read-only)))
 (define-key global-map "\C-x\C-q" 'vc-toggle-read-only)
 
+(defun vc-after-save-hook ()
+  ;; Mark the file in the current buffer as "locked" by the user.
+  (remove-hook 'after-save-hook 'vc-after-save-hook t)
+  (vc-file-setprop (buffer-file-name) 'vc-locking-user (user-login-name))
+  (vc-mode-line (buffer-file-name)))
+
 (defun vc-mode-line (file &optional label)
   "Set `vc-mode' to display type of version control for FILE.
 The value is set in the current buffer, which should be the buffer
@@ -735,16 +754,19 @@ control system name."
                        (and vc-display-status (vc-status file)))))
     (and vc-type 
          (equal file (buffer-file-name))
-         ;; Make the buffer read-only if the file is not locked
-         ;; (or unchanged, in the CVS case).
-         (if (not (vc-locking-user file))
-             (setq buffer-read-only t))
-         ;; Even root shouldn't modify a registered file without
-         ;; locking it first.
-         (not buffer-read-only)
-         (zerop (user-uid))
-         (not (equal (user-login-name) (vc-locking-user file)))
-         (setq buffer-read-only t))
+         (if (vc-locking-user file)
+             ;; If the file is locked by some other user, make
+             ;; the buffer read-only.  Like this, even root
+             ;; cannot modify a file without locking it first.
+             (if (not (string= (user-login-name) (vc-locking-user file)))
+                 (setq buffer-read-only t))
+           ;; If the file is not locked, and vc-checkout-model is
+           ;; `automatic', install a hook that will make the file
+           ;; "locked" when the buffer is saved.
+           (cond ((eq (vc-checkout-model file) 'automatic)
+                  (make-local-variable 'after-save-hook)
+                  (make-local-hook 'after-save-hook)
+                  (add-hook 'after-save-hook 'vc-after-save-hook t)))))
     (force-mode-line-update)
     ;;(set-buffer-modified-p (buffer-modified-p)) ;;use this if Emacs 18
     vc-type))