[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:00525] Re: mhc-cvs.el and Gnus support



>> On Thu, 20 Apr 2000 17:58:26 +0900
>> 「白井」== shirai@xxxxxxxxxxxxxxxxxxx (Hideyuki SHIRAI (白井秀行)) said as follows:

白井> (defvar mhc-file-cvs-global-options '())
白井> をお願いします。(_ _)

了解です。以下のように mhc-file-default-network-status の値によって、
自動的に -z9 がつくようにしてみました。

Index: mhc-cvs.el
===================================================================
RCS file: /home/tsuchiya/CVS/projects/mhc/mhc-cvs.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -u -r1.5 -r1.6
--- mhc-cvs.el	2000/04/20 05:09:52	1.5
+++ mhc-cvs.el	2000/04/20 09:25:01	1.6
@@ -43,6 +43,14 @@
 (put 'mhc-cvs 'remove 'mhc-cvs/remove)
 
 
+;;; Customize Variable
+(defcustom mhc-cvs-global-options
+  (if mhc-file-default-network-status '("-f" "-w") '("-f" "-w" "-z9"))
+  "*Global options are used when calling CVS."
+  :group 'mhc
+  :type '(repeat (string)))
+
+
 ;;; Code
 (defun mhc-cvs/open (&optional offline)
   "ネットワークの状態に依存する開始処理関数"
@@ -114,13 +122,14 @@
 	  (delete-region (point-min) (point-max))
 	  (let ((default-directory (file-name-as-directory
 				    (mhc-summary-folder-to-path mhc-base-folder))))
-	    (apply 'call-process "cvs" nil t nil "-f" "-w" options)))
+	    (apply 'call-process "cvs" nil t nil
+		   (append mhc-cvs-global-options options))))
       (set-buffer current-buffer))))
 
 (defun mhc-cvs/update ()
   "cvs update を実行した結果を解析する関数"
   ;; ローカルのスケジュールファイルを update する
-  (prog1 (mhc-cvs/backend "update" "-I" ".*" "-I" "trash")
+  (prog1 (mhc-cvs/backend "update" "-d" "-I" ".*" "-I" "trash")
     (let (modified-files conflict-files updated-files commit-fault-files)
       ;; update の結果を解析する
       (let ((buffer (get-buffer mhc-cvs/tmp-buffer-name))
-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )
    http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/