--- egg-remix.0207.el	Sun Jun 15 14:25:54 2003
+++ egg-remix.el	Fri Aug 13 19:32:35 2004
@@ -1,5 +1,5 @@
 ;;; egg-remix.el --- Roman-Kana conversion input interface for Tamago4
-;; Copyright (C) 2000-2003 Hiroki Hayashi
+;; Copyright (C) 2000-2004 Hiroki Hayashi
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -56,6 +56,8 @@
 ;;       "remix"                     Egg ReMix モード  
 
 ;; Change Log:
+;;   Aug 12 2004: version 0.208
+;;                ・Emacs-21.3.50 での invisible に対する動作変更への対応
 ;;   Jun 15 2003: version 0.207
 ;;                ・t-gnus などの Message mode で正しく入力できない問題の
 ;;                  回避コードを追加
@@ -99,9 +101,9 @@
 
 (require 'egg)
 
-(defconst remix-version "0.207"
+(defconst remix-version "0.208"
   "Egg ReMix のバージョン")
-(defconst remix-version-date "Jun 15 2003"
+(defconst remix-version-date "Aug 12 2004"
   "Egg ReMix の最終更新日")
 
 (activate-input-method default-input-method)
@@ -116,6 +118,7 @@
 (defun egg-decide-before-point ()
   (interactive)
   (let* ((inhibit-read-only t)
+	 (buffer-invisibility-spec nil)
 	 (start (if (get-text-property (1- (point)) 'egg-start)
 		    (point)
 		  (previous-single-property-change (point) 'egg-start)))
@@ -164,6 +167,7 @@
 (defun egg-abort-conversion ()
   (interactive)
   (let ((inhibit-read-only t)
+	(buffer-invisibility-spec nil)
 	source context)
     (goto-char (previous-single-property-change
 		(if (get-text-property (1- (point)) 'egg-start)
@@ -228,6 +232,7 @@
 (defun egg-decide-first-char ()
   (interactive)
   (let* ((inhibit-read-only t)
+	 (buffer-invisibility-spec nil)
 	 (start (if (get-text-property (1- (point)) 'egg-start)
 		    (point)
 		  (previous-single-property-change (point) 'egg-start)))
@@ -440,6 +445,7 @@
 (defun remix-beginning-of-input-buffer ()
   (interactive)
   (let* ((inhibit-read-only t)
+	 (buffer-invisibility-spec nil)
 	 (p (point))
 	 (seq-before (get-text-property p 'remix-keyseq-before))
 	 (seq-after (get-text-property p 'remix-keyseq-after)))
@@ -453,6 +459,7 @@
 (defun remix-end-of-input-buffer (&optional last)
   (interactive)
   (let* ((inhibit-read-only t)
+	 (buffer-invisibility-spec nil)
 	 (p (point))
 	 (seq-before (get-text-property p 'remix-keyseq-before))
 	 (seq-after (get-text-property p 'remix-keyseq-after)))
@@ -469,6 +476,7 @@
   (setq n (or n 1))
   (if (> n 0)
       (let* ((inhibit-read-only t)
+	     (buffer-invisibility-spec nil)
 	     (p (point))
 	     (seq-before (get-text-property p 'remix-keyseq-before))
 	     (seq-after (get-text-property p 'remix-keyseq-after))
@@ -494,6 +502,7 @@
   (setq n (or n 1))
   (if (> n 0)
       (let* ((inhibit-read-only t)
+	     (buffer-invisibility-spec nil)
 	     (p (point))
 	     (seq-before (get-text-property p 'remix-keyseq-before))
 	     (seq-after (get-text-property p 'remix-keyseq-after))
@@ -517,6 +526,7 @@
   (interactive)
   (if (remix-in-fence-p)
       (let ((inhibit-read-only t)
+	    (buffer-invisibility-spec nil)
 	    (p (point)))
 	(add-text-properties p (1+ p) (list 'remix-keyseq-before nil
 					    'remix-keyseq-after nil))
@@ -527,6 +537,7 @@
   (setq n (or n 1))
   (if (> n 0)
       (let* ((inhibit-read-only t)
+	     (buffer-invisibility-spec nil)
 	     (p (point))
 	     (seq-after (get-text-property p 'remix-keyseq-after)))
 	(if seq-after
@@ -548,6 +559,7 @@
   (setq n (or n 1))
   (if (> n 0)
       (let* ((inhibit-read-only t)
+	     (buffer-invisibility-spec nil)
 	     (p (point))
 	     (seq-before (get-text-property p 'remix-keyseq-before))
 	     (seq-after (get-text-property p 'remix-keyseq-after)))
@@ -567,13 +579,15 @@
 
 (defun remix-kill-line ()
   (interactive)
-  (let ((inhibit-read-only t))
+  (let ((inhibit-read-only t)
+	(buffer-invisibility-spec nil))
     (add-text-properties (point) (1+ (point)) '(remix-keyseq-after nil))
     (remix-input)))
 
 (defun remix-transpose-chars ()
   (interactive)
   (let* ((inhibit-read-only t)
+	 (buffer-invisibility-spec nil)
 	 (p (point))
 	 (seq-before (get-text-property p 'remix-keyseq-before))
 	 (seq-after (get-text-property p 'remix-keyseq-after))
@@ -630,6 +644,7 @@
 		 (eq status 'remix-uncertain)
 		 (eq status 'remix-indictkana)))
 	(let ((inhibit-read-only t)
+	      (buffer-invisibility-spec nil)
 	      (remix-fence-operation t))
 	  (delete-region (remix-search-beginning-seq) (remix-search-end-seq))
 	  (insert seq)
@@ -641,6 +656,7 @@
   (interactive)
   (remix-end-of-input-buffer)
   (let* ((inhibit-read-only t)
+	 (buffer-invisibility-spec nil)
 	 (p1 (remix-search-beginning-seq))
 	 (p2 (remix-search-end-seq))
 	 (str (buffer-substring p1 (1- p2))))
@@ -652,6 +668,7 @@
   (interactive)
   (remix-end-of-input-buffer)
   (let* ((inhibit-read-only t)
+	 (buffer-invisibility-spec nil)
 	 (p1 (remix-search-beginning-seq))
 	 (p2 (remix-search-end-seq))
 	 (str (buffer-substring p1 (1- p2))))
@@ -663,6 +680,7 @@
   (interactive)
   (remix-end-of-input-buffer)
   (let* ((inhibit-read-only t)
+	 (buffer-invisibility-spec nil)
 	 (str (get-text-property (point) 'remix-keyseq-before))
 	 (full "")
 	 (len (length str))
@@ -725,6 +743,7 @@
 (defun remix-exit-mode-internal (&optional key)
   (if (remix-in-fence-p)
       (let ((inhibit-read-only t)
+	    (buffer-invisibility-spec nil)
 	    (remix-fence-operation t)
 	    (status (get-text-property (point) 'remix-status))
 	    (overlay (get-text-property (point) 'remix-overlay)))
@@ -737,6 +756,7 @@
 
 (defun remix-input (&optional key)
   (let* ((inhibit-read-only t)
+	 (buffer-invisibility-spec nil)
 	 (p (point))
 	 (seq-before (get-text-property p 'remix-keyseq-before))
 	 (last nil)
@@ -764,6 +784,7 @@
 
 (defun remix-update-fence (status &optional last)
   (let* ((inhibit-read-only t)
+	 (buffer-invisibility-spec nil)
 	 (remix-fence-operation t)
 	 (p (point))
 	 (p1 (remix-search-beginning-seq))
@@ -840,6 +861,7 @@
     ;; Put open-fence before inhibit-read-only to detect read-only
     (insert (if remix-context its-fence-continue its-fence-open))
     (let ((inhibit-read-only t)
+	  (buffer-invisibility-spec nil)
 	  (p1 (point))
 	  overlay)
       (add-text-properties p0 p1 open-props)
@@ -885,6 +907,7 @@
 
 (defun remix-delete-fence ()
   (let ((inhibit-read-only t)
+	(buffer-invisibility-spec nil)
 	p1 p2 p3)
     ;; Open fence を削除
     (setq p2 (remix-search-beginning-seq))
@@ -1017,6 +1040,7 @@
 	    (eq status 'remix-indictkana))
 	;; 漢字変換
 	(let ((inhibit-read-only t)
+	      (buffer-invisibility-spec nil)
 	      (cursor (buffer-substring (point) (1+ (point))))
 	      region)
 	  (remix-delete-cursor)
@@ -1029,6 +1053,7 @@
 				  (get-text-property 0 'remix-context cursor))))
       ;; self-insert
       (let ((inhibit-read-only t)
+	    (buffer-invisibility-spec nil)
 	    (seq (get-text-property (point) 'remix-keyseq-before)))
 	(delete-region (remix-search-beginning-seq) (remix-search-end-seq))
 	(insert seq)