$ make SKK-JISYO.emoji.kana
emacs --batch --directory ./ --load emoji.el --funcall kanji-to-kana > SKK-JISYO.emoji.kana
Loading /etc/emacs/site-start.d/00debian.el (source)...
Loading /etc/emacs/site-start.d/50asymptote.el (source)...
Loading /etc/emacs/site-start.d/50autoconf.el (source)...
Loading /etc/emacs/site-start.d/50dictionaries-common.el (source)...
Loading debian-ispell (native compiled elisp)...
Loading /var/cache/dictionaries-common/emacsen-ispell-default.el (source)...
Loading /var/cache/dictionaries-common/emacsen-ispell-dicts.el (source)...
Loading /etc/emacs/site-start.d/50latex-cjk-common.el (source)...
Loading /usr/share/emacs/site-lisp/latex-cjk-common/cjk-enc.el (source)...
Loading /etc/emacs/site-start.d/50latex-cjk-thai.el (source)...
Loading /etc/emacs/site-start.d/50latexmk.el (source)...
Loading /etc/emacs/site-start.d/50texlive-lang-english.el (source)...
Debugger entered--Lisp error: (search-failed "^あ /.+$")
re-search-forward("^あ /.+$")
(progn (insert-file-contents "SKK-JISYO.L.unannotated") (goto-char (point-min)) (re-search-forward "^あ /.+$") (beginning-of-line) (while (not (eobp)) (let* ((line (buffer-substring (point) (progn (end-of-line) (point)))) (lst (split-string line " /")) (kana-midasi (car lst)) (kanji-cands (format "/%s" (car (cdr lst))))) (if (string-match ">" kana-midasi) nil (setq alist (cons (cons kana-midasi kanji-cands) alist)))) (forward-line)))
(unwind-protect (progn (insert-file-contents "SKK-JISYO.L.unannotated") (goto-char (point-min)) (re-search-forward "^あ /.+$") (beginning-of-line) (while (not (eobp)) (let* ((line (buffer-substring (point) (progn ... ...))) (lst (split-string line " /")) (kana-midasi (car lst)) (kanji-cands (format "/%s" (car ...)))) (if (string-match ">" kana-midasi) nil (setq alist (cons (cons kana-midasi kanji-cands) alist)))) (forward-line))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents "SKK-JISYO.L.unannotated") (goto-char (point-min)) (re-search-forward "^あ /.+$") (beginning-of-line) (while (not (eobp)) (let* ((line (buffer-substring ... ...)) (lst (split-string line " /")) (kana-midasi (car lst)) (kanji-cands (format "/%s" ...))) (if (string-match ">" kana-midasi) nil (setq alist (cons ... alist)))) (forward-line))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
(let ((temp-buffer (generate-new-buffer " temp" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents "SKK-JISYO.L.unannotated") (goto-char (point-min)) (re-search-forward "^あ /.+$") (beginning-of-line) (while (not (eobp)) (let* ((line ...) (lst ...) (kana-midasi ...) (kanji-cands ...)) (if (string-match ">" kana-midasi) nil (setq alist ...))) (forward-line))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
(let (alist) (let ((temp-buffer (generate-new-buffer " temp" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents "SKK-JISYO.L.unannotated") (goto-char (point-min)) (re-search-forward "^あ /.+$") (beginning-of-line) (while (not (eobp)) (let* (... ... ... ...) (if ... nil ...)) (forward-line))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) alist)
make-alist()
(setq kanji2kana-alist (make-alist))
kanji-to-kana()
command-line-1(("--directory" "./" "--load" "emoji.el" "--funcall" "kanji-to-kana"))
command-line()
normal-top-level()
make: *** [Makefile:193: SKK-JISYO.emoji.kana] Error 255
make-alist 内の (insert-file-contents "SKK-JISYO.L.unannotated") の後の (re-search-forward "^あ /.+$") が失敗する
これで直ります：
(defun make-alist ()
(let (alist)
(with-temp-buffer
- (insert-file-contents "SKK-JISYO.L.unannotated")
+ (let ((coding-system-for-read 'euc-jp))
+ (insert-file-contents "SKK-JISYO.L.unannotated"))
(goto-char (point-min))
(re-search-forward "^あ /.+$")
(beginning-of-line)
make-alist内の(insert-file-contents "SKK-JISYO.L.unannotated")の後の(re-search-forward "^あ /.+$")が失敗するこれで直ります：