猫熊は燃えつきた？！日記

○ ヤーッ！

へぇー、知らんかった。
会社は福岡出身の人も多いから今度飲んだときにでも聞いてみよっと。

○ migemo

Emacs CVS Head の 2006-09-20 の半田さんの isearch.el の修正で migemo な isearch-backward() がほとんど？動かなくなっているのに、本日 cvs update して気付いた。migemo の CVS にはコミットしておいたけど、migemo.el の該当部分を以下に置き換えれば OK。

(defun migemo-backward (word &optional bound noerror count)
  (interactive "sSearch backward: \nP\nP")
  (if (delq 'ascii (find-charset-string word))
      (setq migemo-search-pattern word)
    (setq migemo-search-pattern (migemo-search-pattern-get word)))
  (if (null migemo-do-isearch)
      (search-backward-regexp migemo-search-pattern bound noerror count)
    (or (and (not (eq this-command 'isearch-repeat-backward))
	     (not (get-char-property (point) 'invisible (current-buffer)))
	     (or (and (looking-at migemo-search-pattern)
		      (match-beginning 0))
		 (and (not (eq (point) (point-min)))
		      (progn (forward-char -1)
			     (and (looking-at migemo-search-pattern)
				  (match-beginning 0))))))
	(search-backward-regexp migemo-search-pattern bound noerror count))))

search-backward() をエミュレーションする関数なのに、looking-at() の戻り値 t をそのまま返すときがあったのが敗因。今まで大丈夫だったんだけど、今回の半田さんの変更で、戻り値の point を使うようになっていた。
3年以上前から存在しているバグ。うーーむ。