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")