トップ «前の日(09-21) 最新 次の日(09-23)» 追記

猫熊は燃えつきた?!日記

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。
2002|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|
2011|09|
2012|02|


2006-09-22 (Fri)

ヤーッ!

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

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年以上前から存在しているバグ。うーーむ。
本日のツッコミ(全2件) [ツッコミを入れる]

maru [え?ほんと? そんなことなど、まったく聞いたことがない福岡育ち。]

なおと [昨日、全然違う方面からも同じ話を聞きました。ヤー! そういえば、長野では掃除は無言でするそうです。 「こっちはやった..]


書いている人: 白井秀行 (mailto:shirai@meadowy。org)
訪問して下さった人: 今日: 人, 昨日: , 過去: 人 (2007年5月10日から)
RDF Feed