[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:01093] Re: mhc-cvs
土屋＠現実逃避モード。
>> On Fri, 20 Oct 2000 00:35:39 +0900
>> hide@xxxxxxxx (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/