[Mew-dist 05568] Re: marker

SAKAI Kiyotaka ksakai at example.com
1998年 7月 17日 (金) 09:43:34 JST


>> In article <19980716180039X.y-koga at example.com>, Maybe TABOO <y-koga at example.com> writes:

>> "----" の箇所に read-only の property を付加すれば、ユーザーの操作では
>> 消せなくなっていいかもしれませんね。

> 快適なんですが、---- の次の改行を消してしまうと、にっちもさっちもいか
> なくなります。これはどうしようもないのかな?

以下のパッチにように、

・"----" の次の改行にも read-only 属性を付ける。
・この改行には rear-nonsticky 属性も付けることで、改行の後にも文字を挿
  入できるようにする。

ようにすればいいかと思います。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
Index: mew-syntax.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b47/mew-syntax.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-syntax.el
--- mew-syntax.el	1998/07/17 00:25:40	1.1.1.1
+++ mew-syntax.el	1998/07/17 00:39:17
@@ -883,7 +883,9 @@
        (mew-highlight-header)
        (mew-draft-header-keymap)
        (insert mew-header-separator "\n")
-       (put-text-property (mew-header-end) (1- (point)) 'read-only t))))
+       (put-text-property (1- (point)) (point) 'rear-nonsticky t)
+       (put-text-property (mew-header-end) (point) 'read-only t)
+       )))
 
 (defmacro mew-draft-header-keymap ()
   (` (progn


Mew-dist メーリングリストの案内