From c02182eaa737e34a543eba49b25e87824df66d70 Mon Sep 17 00:00:00 2001 From: hayashi Date: Mon, 9 Jul 2001 07:00:46 +0000 Subject: [PATCH] * egg-cnv.el (egg-make-bunsetsu): Add start-open property. * its.el (its-put-cursor): Ditto. --- ChangeLog | 5 +++++ egg-cnv.el | 4 +++- its.el | 1 + 3 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 1862f69..72b27c3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2001-07-09 Yoshiki Hayashi + * egg-cnv.el (egg-make-bunsetsu): Add start-open property. + * its.el (its-put-cursor): Ditto. + +2001-07-09 Yoshiki Hayashi + * egg-com.el (ccl-decode-fixed-euc-jp): Make it XEmacs compatible. (ccl-decode-fixed-euc-kr): Ditto. (decode-fixed-euc-china-region): Check against the charset sisheng diff --git a/egg-cnv.el b/egg-cnv.el index 7eaa318..c828c17 100644 --- a/egg-cnv.el +++ b/egg-cnv.el @@ -321,7 +321,8 @@ mode, if non-NIL." (insert s) (setq s (copy-sequence egg-conversion-fence-close) len (length s)) - (set-text-properties 0 len '(read-only t rear-nonsticky t egg-end t) s) + (set-text-properties 0 len '(read-only t rear-nonsticky t + egg-end t start-open t) s) (if egg-conversion-fence-invisible (put-text-property 0 len 'invisible t s)) (insert s) @@ -636,6 +637,7 @@ mode, if non-NIL." (egg-remove-all-text-properties 0 len converted) (add-text-properties 0 len (list 'read-only t + 'start-open t (egg-bunsetsu-info) bunsetsu 'egg-backend backend 'egg-lang language diff --git a/its.el b/its.el index 8d05597..e2528c1 100644 --- a/its.el +++ b/its.el @@ -314,6 +314,7 @@ (let ((p (point)) (str (copy-sequence "!"))) (set-text-properties 0 1 (list 'read-only t + 'start-open t 'invisible t 'intangible 'its-part-2 'its-cursor cursor -- 1.7.10.4