まさおのChangeLogメモ / 2005-04-27

- ORBITRON / Satellite Tracking System / Sebastian Stoff homepage: users

昨日の二分探索のエラーを修正するパッチを書いてみた。
elisp はよく知らないので、これで良いのかわからんけど…。。。

diff -u -b -r1.289 skk.el
--- skk.el 27 Feb 2005 23:43:50 -0000 1.289
+++ skk.el 27 Apr 2005 03:07:49 -0000
@@ -3411,8 +3411,10 @@
  (goto-char (+ min (/ size 2)))
  (beginning-of-line)
  (setq p (point))
- ;; 送りありなら逆順に比較を行なう。
+ (if (= p min)
+ (setq max min) ; return
  (let ((p-is-further
+ ;; 送りありなら逆順に比較を行なう。
  (if okurigana
  (string< (buffer-substring-no-properties
  p (1- (search-forward " ")))
@@ -3422,7 +3424,7 @@
  p (1- (search-forward " ")))))))
  (if p-is-further
  (setq max p)
- (setq min p)))))
+ (setq min p))))))
       (goto-char min)
       ;; key が検索開始地点にあった場合でも検索可能なように一文字戻る。key が
       ;; その先頭部分に "\n" を含んでいることに注意。