* egg-cnv.el (egg-make-bunsetsu): Add start-open property.

* its.el (its-put-cursor): Ditto.

diff --git a/ChangeLog b/ChangeLog
index 1862f69..72b27c3 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2001-07-09  Yoshiki Hayashi <yoshiki@xemacs.org>
 
+       * egg-cnv.el (egg-make-bunsetsu): Add start-open property.
+       * its.el (its-put-cursor): Ditto.
+
+2001-07-09  Yoshiki Hayashi <yoshiki@xemacs.org>
+
        * 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 (file)
--- 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 (file)
--- 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