[mhc:01093] Re: mhc-cvs

[TSUCHIYA Masatoshi <tsuchiya _at_ pine.kuee.kyoto-u.ac.jp>]

土屋＠現実逃避モード。


>> On Fri, 20 Oct 2000 00:35:39 +0900
>> hide _at_ koie.org (KOIE Hidetaka (鯉江英隆)) said as follows:

>現状ではprocess-environmentを一時的にバインドしといて
>mhc-cvs.elで(setenv "CVS_RSH" "ssh")するのが正しいかなぁと思います。

そんな変数があるのですか、と興味をもったので、3分間コーディングしてみ
ました。以下のような変更でどうでしょう? 動作確認してないので、commit 
はまだです。

# CVS の幹の先端に追い付いていないので、動作確認も出来ない状況なんです。
# すみません。

## (mhc-cvs/shrink-file-name) なんですけど、(file-relative-name) を使
## うと簡単なのではないでしょうか > 白井さん

Index: mhc-cvs.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-cvs.el,v
retrieving revision 1.5
diff -u -u -r1.5 mhc-cvs.el
--- mhc-cvs.el	2000/10/19 06:19:24	1.5
+++ mhc-cvs.el	2000/10/20 01:50:15
@@ -76,7 +76,12 @@
   :group 'mhc
   :type 'string)
 
+(defcustom mhc-cvs-rsh "rsh"
+  "*The name of the remote shell command to use when starting a cvs server."
+  :group 'mhc
+  :type 'string)
 
+
 ;;; Internal Variable:
 (defvar mhc-cvs/default-directory nil)
 
@@ -93,7 +98,9 @@
 	(progn
 	  (set-buffer buffer)
 	  (delete-region (point-min) (point-max))
-	  (let ((default-directory (file-name-as-directory mhc-cvs/default-directory)))
+	  (let ((default-directory (file-name-as-directory mhc-cvs/default-directory))
+		(process-environment process-environment))
+	    (setenv "CVS_RSH" mhc-cvs-rsh)
 	    (apply #'call-process "cvs" nil t nil
 		   (append mhc-cvs-global-options options))))
       (set-buffer current-buffer))))
@@ -135,15 +142,9 @@
 
 (defun mhc-cvs/shrink-file-name (file)
   "ファイル名の相対パスを得る関数"
-  (let ((base (concat
-	       "^"
-	       (regexp-quote
-		(file-name-as-directory
-		 (mhc-summary-folder-to-path mhc-base-folder))))))
-    (setq file (expand-file-name file))
-    (if (string-match base file)
-	(substring file (match-end 0))
-      file)))
+  (file-relative-name
+   (expand-file-name file)
+   (mhc-summary-folder-to-path mhc-base-folder)))
 
 (defun mhc-cvs/close (&optional offline)
   "ネットワークの状態に依存する終了処理関数"

-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )
    http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/