[mhc:00264] completion for category input?

[sen_ml@xxxxxxxxxxx]

Category を入力する時に補完機能が使用できる様にするために
mhc-input-category を以下の様に変更をするのはいかがでしょうか？

(defun mhc-input-category (&optional prompt default)
  (interactive)
  (let (in)
    (if (and default (listp default))
        (setq default (mhc-misc-join default " ")))
    (if (string= "" (setq in (completing-read (or prompt "Category: ")
                                              mhc-category-face-alist
                                              nil
                                              nil
                                              (or default ""))))
        nil
      (mhc-misc-split in))))