[xyzzy:02993] Re: RCS

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

はっとりさん、こんにちは。

        Sat, 17 Jul 1999 18:15:41 +0900 の
        [xyzzy:02989] Re: RCS
        への返事です.

| モード行に編集中ファイルのバージョンを表示するのに、今は
| mode-line-formatを直接書き換えてるのですが、その中の%Mと
| かの参照先を変更して表示を変えることはできるのでしょうか。

こんな感じなら。

(defvar-local foo-mode nil)
(defvar-local foo-version nil)

(defun foo-mode (&optional (arg nil sv))
  (interactive "p")
  (ed::toggle-mode 'foo-mode arg sv)
  (if foo-mode
      (setq foo-version "Foo 1.0"))
  (update-mode-line))

(defun foo-version (s)
  (interactive "smode-line: " :default0 foo-version)
  (setq foo-version s)
  (update-mode-line))

(pushnew '(foo-mode . foo-version) *minor-mode-alist* :key #'car)



# ci したら read-only になったほうがいいなと思ったり。

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx