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