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

[Hideyuki SHIRAI (白井秀行)<shirai _at_ quickhack.net>]

白井＠mhc-cvs を思い出そうと思ったのですが、全然思い出せない ^^;;;

From: Yoshinari Nomura <nom _at_ csce.kyushu-u.ac.jp> さん曰く
Subject: [mhc:01072] Re: mhc-cvs/read-repository-path
Message-ID: <20001016175222B.nom _at_ csce.kyushu-u.ac.jp>
Date: Mon, 16 Oct 2000 17:52:22 +0900

乃村>  		    (mapcar (lambda (dir)
乃村>  			      (and (stringp dir)
乃村> -				   (file-directory-p dir)
乃村> +				   (or (string-match ":" dir)
乃村> +				       (file-directory-p dir))

   (or (string-match "^:" dir)

ぐらいの方が良いと思います。ちょっとだけ strict にするなら
(string-match "^:\\(pserver\\|ext\\):" dir)
かしら？

(getenv "CVSROOT") => "c:/home/hoge/CVS" なんてあるかもしれない
し。

# 私は module 名を変えていたので、たしかこの関数は使わなかったな。

-- 
白井秀行 (mailto:shirai _at_ quickhack.net)