From: hayashi <hayashi>
Date: Mon, 9 Jul 2001 07:00:46 +0000 (+0000)
Subject: * egg-cnv.el (egg-make-bunsetsu): Add start-open property.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c02182eaa737e34a543eba49b25e87824df66d70;p=elisp%2Ftamago.git

* 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
--- 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
--- 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