SKK専用スレッド Part4
http://pc.2ch.net/test/read.cgi/unix/1049225392/33-
(defsubst my-skk-henkan-key-okuriari-p (k)
(let ((fc (aref k 0))
(lc (aref k (1- (length k)))))
(and (>= fc ?ぁ)
(<= fc ?ん)
(>= lc ?a)
(<= lc ?z))))
(defun my-skk-show-candidates (key)
(interactive
(list (read-string "key: ")))
(let* ((skk-henkan-key key)
(skk-henkan-okurigana
(when (my-skk-henkan-key-okuriari-p key) ""))
(prog-list (delete '(skk-look) skk-search-prog-list))
(s
(mapcar #'(lambda (l)
(delete "" l))
(eval (cons 'list prog-list)))))
(message "%s" s)
(with-current-buffer (get-buffer-create "*skk-candidates*")
(goto-char (point-max))
(insert (format "%s: %s\n" key s)))))
(defalias 'show-candidates 'my-skk-show-candidates)
M-x show-candidates