i386 で実行していた limited-list pbulk が 完了したので、

sudo pkg_delete '*'

して、pkg_info で何も表示されないことを確めてから

config-desktop
config-emacs 

を pkg_add した。しかし、emacs を起動すると、次のようになってしまう。

Warning (initialization): An error occurred while loading `/home/makoto/.emacs':

error: ファイル /usr/local/share/tc/bushu.expand が存在しません。

2004/08/21 の日記 に同じ文字が出て来るが、そこに書いてあることは多分役に立たない。 *scratch* buffer を開いておいて

(require 'tc-setup)

すると、ほぼ次のような表示になる。

Debugger entered--Lisp error: (error 
  "ファイル /usr/local/share/tc/bushu.expand が存在しません。")
  signal(error ("ファイル /usr/local/share/tc/bushu.expand が存在しません。"))
  error("ファイル %s が存在しません。" "/usr/local/share/tc/bushu.expand")
  tcode-set-work-buffer(" *tcode: bushu expand*" "bushu.expand")
  tcode-bushu-load-dictionary()
  tcode-bushu-init(0)
  byte-code(" ...." [provide tc tcode-bushu-init 0] 2)
  require(tc)
  require(tc-bushu)
  byte-code(" ...." [tcode-init-file-name tcode-use-isearch ...] 7)
  require(tc-setup)
  eval((require (quote tc-setup)) nil)

tc-bushu.el

0045 (defvar tcode-bushu-expand-file-name "bushu.expand")
0046 (defconst tcode-bushu-expand-buffer-name " *tcode: bushu expand*")
 ...
0380 (defun tcode-bushu-load-dictionary (&optional force)
0381   "部首合成変換辞書を読み込む。
0382 すでに読み込まれている場合は何もしない。
0383 FORCEがnilでない場合は再読み込みする。"
0384   (interactive "P")
0385   (save-excursion
0386     ;; expand if need
0387     (if (file-newer-than-file-p (tcode-path-for-read
0388 				 tcode-bushu-reverse-dictionary-name)
0389  				(tcode-path-for-read
0390 				 tcode-bushu-expand-file-name))
0391  	(tcode-bushu-expand-all))
0392     ;; load dictionaries
0393     (tcode-set-work-buffer tcode-bushu-expand-buffer-name
0394 			   tcode-bushu-expand-file-name)

tc.el

1618 (defun tcode-set-work-buffer (bufname filename &optional force noerror)
1619   "編集対象バッファを、FILENAME の内容を持つバッファ BUFNAME にする。
1620 ファイル FILENAME がまだ読み込まれていない場合には読み込む。
1621 返り値として、設定されたバッファを返す。
1622
1623 FORCE が nil でないときは、再読み込みを行う。
1624 NOERROR が nil でないときは、FILENAME が指定されていない場合や
1625 ファイルが存在しない場合でも、空のバッファを作成する。"
1626   (let ((buffer (get-buffer bufname))
1627 	(file (tcode-path-for-read filename)))
1628     (if (and buffer
1629 	     (not force))
1630 	(set-buffer buffer)
1631       (if (and file (file-exists-p file))
1632 	  (prog2
1633 	      (when tcode-verbose-message
1634 		(message "ファイル %s 読み込み中..." file))
1635 	      (set-buffer (get-buffer-create bufname))
1636 	    (erase-buffer)
1637 	    (insert-file-contents file)
1638 	    (set-buffer-modified-p nil)
1639 	    (when tcode-verbose-message
1640 	      (message "ファイル %s 読み込み中...完了" file)))
1641 	(if noerror
1642 	    (set-buffer (get-buffer-create bufname))
1643 	  (error "ファイル %s が存在しません。" file))))))

tc.el

1609 (defun tcode-path-for-read (file)
1610   (let ((user-file (expand-file-name file tcode-data-directory)))
1611     (if (file-exists-p user-file)
1612 	user-file
1613       (expand-file-name file tcode-site-data-directory))))
1614

M-x describe-variable RET tcode-site-data-directory

tcode-site-data-directory is a variable defined in `tc-pre.el'.
Its value is "/usr/local/share/tc/"

  This variable is potentially risky when used as a file local variable.

Documentation:
Not documented as a variable.

tc-pre.el

0127 (defconst tcode-site-data-directory "/usr/pkg/share/tc/")
0128 
0129 (provide 'tc-pre)
0130 
0131 ;;; tc-pre.el ends here

byte compile する時に違う値が代入されている ? (らしいです)

m08@makoto 20:27:46/120422(..site-lisp/tc-2.3.1)% grep local/share *.elc
Binary file tc-pre.elc matches

tc-pre.el が調整されるのは configure;make の後の方で add-site-info shell 手続による。それ以前は svn のままで、その以前の状態で byte compile される (ので、何かの対策が必要)。その対策の後に、

77 による部首合成
同上記号の部       矢 + 右  = →
混ぜ書き

を確認

wip/tc-svn には 一時回避を commit した