[mhc:01360] Re: C-c . s で intersect の変更が反映されない

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

From: Yoshinari Nomura <nom@xxxxxxxxxxxxxxxxxxx> さん曰く
Subject: [mhc:01358] Re: C-c . s で intersect の変更が反映されない
Message-ID: <20010521202122H.nom@xxxxxxxxxxxxxxxxxxx>
Date: Mon, 21 May 2001 20:21:22 +0900

nom> > ところで
nom> > C-c . . C-c . s というシーケンスで
nom> > なぜかカーソルが明日の行に移動してしまうのですが
nom> > 自業自爆の徴候なんでしょうか。
nom> 
nom> これも不可解ですね．．

試したところ、Emacs-20/21 + Mew 1.95b112 で私もなりました。

## 逆になんで乃村さんがこうならないのかちょっとだけ不思議かも。

mhc-rescan-month() の最初の line の計算が狂う様です。
いいかげんな実験ですが、

(let ((str "01234567")
      (buf (get-buffer-create "*tmp*"))
      (i 0)
      lines col char)
  (put-text-property 0 4 'invisible t str)
  (pop-to-buffer buf)
  (delete-region (point-min) (point-max))
  (insert str)
  (beginning-of-line)
  (while (< i (length str))
    (setq lines (count-lines (point-min) (point)))
    (setq col (current-column))
    (setq char (char-after (point)))
    (save-excursion
      (goto-char (point-max))
      (insert (format "\n%c: line: %s, col: %s" char lines col)))
    (forward-char 1)
    (setq i (1+ i))))

を実行すると、01234567 という文字列が insert されますが、
              ~~~~ invisible

0: line: 0, col: 0
1: line: 1, col: 0
2: line: 1, col: 0
3: line: 1, col: 0
4: line: 1, col: 0
5: line: 1, col: 1
6: line: 1, col: 2
7: line: 1, col: 3

という結果になるので 1-4 の上に cursor があると鯉江さんの報告の
ように誤動作します。

## どうやって直すかは、また明日 ^^;;;

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)