[Mew-dist 17776] Re: Mew adds load

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 17774] Re: Mew adds load
Message-ID: <20010613.153458.123559390.kazu at example.com>
Date: Wed, 13 Jun 2001 15:34:59 +0900

kazu> intangible ってなんでしたっけ？

info> `intangible'
info>      連続する文字に属性`intangible'の`nil'でない同じ値があると、それらの
info>      あいだにポイントを置けなくなる。前方に向けてこれらの文字の中にポイ
info>      ントを移動しようとすると、ポイントは実際にはそれらの末尾へ移動する。
info>      後方に向けてこれらの文字の中にポイントを移動しようとすると、ポイン
info>      トは実際にはそれらの先頭へ移動する。

以前、これをつけて貰おうと思ったことがあるのですが、現状の Mew
の summary では "C-e" => "C-b" としたときに、目的地に到達するま
での "C-b" の回数が減るぐらいなのでやめました。また、本気でやる
には

(let ((str "abc") beg)
  (insert str)
  (setq beg (point))
  (insert str)
  (add-text-properties beg (point) '(invisible t intangible t))
  (insert str))

ではだめで、

(let ((str "abc") beg)
  (insert str)
  (setq beg (point))
  (insert str)
  (put-text-property beg (point) 'invisible t)
  (put-text-property (1- beg) (point) 'intangible t)
  (insert str))

じゃないといけないから面倒くさいです。

# ともに、"abcabc" の上を C-f でなぞると後者の方が良い、ってわか
# ります。

また、XEmacs には intangible は(確か)ないです。

-- 
白井秀行 (mailto:shirai at example.com)