[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 メーリングリストの案内