[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/