[mhc:01687] Re: Category 補完

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

From: Yoichi NAKAYAMA <yoichi@xxxxxxxxxxxxxxxxxxxxxxxx> さん曰く
Subject: [mhc:01685] Re: Category 補完
Message-ID: <87u1jo7xnd.wl@xxxxxxxxxxxxxxxxxxxxxxxx>
Date: Tue, 15 Oct 2002 20:24:22 +0900

> emacs/lisp/ChangeLog* を見る限りでは、crm.el は emacs-21.1 から
> 入っていますね。せっかくの機能が使えないのはもったいないので
> 添付のパッチのようにしてはいかがでしょうか。

ありがとうございます。(ぼくの場合)以前から "todo" "done" が補完
ウインドウに二重に出るのが気になっていたので、以下の用に変えて
commit しました。

    (defun mhc-input-category (&optional prompt default)
      (interactive)
      (let ((completion-ignore-case t)
	    (table (nconc (delete '("Todo")
				  (delete '("Done")
					  (mapcar (lambda (x) (list (car x)))
						  mhc-category-face-alist)))
			  (list '("Todo") '("Done")))))
       <<つづく>>

もともと、 Meadow1.15 で crm を load して、それから
mhc-input-category() をごまかしていたのですが、これでごまかしが
必要なくなりました :-)


P.S.
crm.el なのですが、Emacs21 で minibuffer 内の point() の扱いが変
わったのに追従していないようです。TAB が変な動きやエラーを出した
ら、何も考えずに↓が効果的な模様。

(when (locate-library "crm")
  (or (featurep 'crm) (require 'crm))
  (when (>= emacs-major-version 21)
    (defalias 'crm-minibuffer-complete 'minibuffer-complete)))

-- 
白井秀行＠本日の現実逃避終了。