vc-rcsで弱いロック

邪道かどうかさえよく分かんない
やたら試行錯誤

(defadvice vc-rcs-register (after rcs-register-non-strict-locking activate)
  ""
  (when (eq (vc-backend (buffer-file-name)) 'RCS)
    (vc-rcs-set-non-strict-locking (buffer-file-name))))
;;     (vc-rcs-checkout (buffer-file-name) t) 
;;     (setq buffer-read-only nil)
;;     (revert-buffer nil t)))
    ;; (progn (shell-command (concat "co -l "
    ;;                               (buffer-file-name)))
    ;;        (shell-command (concat "rcs -U "
    ;;                               (buffer-file-name)))
    ;;        ;; (shell-command (concat "chmod u+w "
    ;;        ;; (buffer-file-name)))
    ;;        (setq buffer-read-only nil))))

(defadvice vc-next-action (before rcs-save-before-next-action activate)
  ""
  (save-buffer))

;; (defadvice vc- (after vcs-checkin-checkout activate)
;;   ""
;;   (vc-rcs-checkout (buffer-file-name) t)
;;   (revert-buffer nil t))

(setq vc-command-messages t)
;; (setq vc-rcs-checkin-switches "-l")     ;2回以上できなくなる
;; (setq vc-rcs-register-switches "-l")