[mhc:01072] Re: mhc-cvs/read-repository-path

[Yoshinari Nomura <nom _at_ csce.kyushu-u.ac.jp>]

On Thu, 12 Oct 2000 13:38:20 +0900,
	KOIE Hidetaka (鯉江英隆) <hide _at_ koie.org> said:

> mhc-cvs.el:mhc-cvs/read-repository-path()では
> 環境変数CVSROOTで指定されるファイルが存在するかどうかを
> file-directory-p()で試験していますが、その必要はないのではないでしょうか。
> CVSROOT=:ext:user _at_ host:/path/to/repositoryの場合にうれしくないです。

この問題と、馬場さんの

On Thu, 12 Oct 2000 17:49:14 +0900,
	Hajime BABA <baba _at_ kusastro.kyoto-u.ac.jp> said:

> また、$CVSROOT が :ext:user _at_ host:/path/to/repository タイプのとき
> は、リモートマシンの $CVSROOT/schedule から checkout してくれません。
> とりあえず最初だけ手動で

って、同じことを言ってますか?
以下の安直なパッチで治るでしょうか。
--
nom


Index: mhc-cvs.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-cvs.el,v
retrieving revision 1.4
diff -u -r1.4 mhc-cvs.el
--- mhc-cvs.el	2000/08/02 02:30:15	1.4
+++ mhc-cvs.el	2000/10/16 08:58:30
@@ -96,7 +96,8 @@
   (let* ((default (catch 'found
 		    (mapcar (lambda (dir)
 			      (and (stringp dir)
-				   (file-directory-p dir)
+				   (or (string-match ":" dir)
+				       (file-directory-p dir))
 				   (throw 'found dir)))
 			    (list
 			     (getenv "CVSROOT")