*cvs-diff* ^M (was: function definition is void: cvs-edit)

[弓岡 也守輝 (YUMIOKA Yasuteru) <te-kun@xxxxxxxxxxxxxx>]

お世話になります、弓岡です。
同じようなことをくり返し聞いて、恐縮なのですが。

SJIS (CR+LF) のファイルを CVS で管理しているのですが、
pcl-cvs で = して diff をとると、

*cvs-diff* バッファが

@@ -16,7 +16,7 @@
 </STYLE>^M

のように、@@ 以降の行末が ^M になってしまいます。

別に diff 自体をファイルに保存することは、今のところないので、実害はな
いのですが、やはり、気持ち悪いです。

解決方法があれば、宜しくお願いします。

なお、cvs は cygwin を使い、mount は binmode (LF)、
~/.emacs は 下記のようにしています。

(setq default-process-coding-system
      '(undecided . japanese-shift-jis-dos))

(modify-coding-system-alist 'process "cvs" '(undecided . sjis))

;; pserver ではなく local repository を使うための設定
(if (featurep '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))))))
--
弓岡