[Message Prev][Message Next][Thread Prev][Thread Next][Message Index][Thread Index]

pcl-cvs の $Author$ の値



入江と申します。

最近 RCS から CVS & pcl-cvs に乗り換えたのですが、commit す
ると $Author$ が "uid500" ってな値になってしまいます。
RCS ではちゃんと "irie"(user-login-name ??) となってくれてた
のですが。

CVS の $Author$ を "irie" にするには何か設定が必要なのでしょ
うか。又は、私が余計な設定をしてしまっているのでしょうか。

ちなみに、

(user-login-name)
(vc-user-login-name)
(vc-file-owner "~/foo")
(vc-locking-user "~/foo")

を評価すると全て "irie" を返してくれます。

.emacs は小関さんのページを参考にして

;; CVS
(autoload 'cvs-examine "pcl-cvs-startup" nil t)
(add-hook 'cvs-mode-hook
          (lambda ()
            (collection-set-goal-column cvs-buffer-name 38)))
;; 固定にしておかないと危険です
(if running-Emacs-V20
    (if running-Windows
        (modify-coding-system-alist 'process "cvs" '(undecided . sjis))
      (modify-coding-system-alist 'process "cvs" '(undecided . euc-japan))))
;; pserver ではなく local repository を使うための設定。詳細は、
;; meadow-users-jp メーリングリストの
;; Subject: about pcl-cvs    X-ML-COUNT: 1870
;; Date: Sat, 29 Jan 2000 01:45:18 +0900   で始まる thread を参照のこと。
(if running-Meadow
    (define-process-argument-editing
      "/cvs\\.exe\\'"
      (lambda (x)
        (let ((command (car x))
              (argument (cdr x)))
          (setq argument (cygnus-process-argument-quoting argument))
          (concat
           (unix-to-dos-filename command) " "
           (unix-to-dos-argument (mapconcat (function concat) argument " ")
                                 nil nil nil nil))))))
;; diff-mode
(autoload 'diff-mode "diff-mode" "Diff major mode" t)
(add-to-list 'auto-mode-alist '("\\.\\(diffs?\\|patch\\|rej\\)\\'" . diff-mode))

こんなカンジです。
環境は

pcl-cvs v2.9.8
diff-mode v1.8
cvs v1.10

です。

info 等目を通してみたのですが、見当がつきませんでした。細か
いことで恐縮ですが妙に気になるもので。

何かポインタ等ご教示願えると幸いです。
-- 
IRIE Tetsuya