🚀 go-pugleaf

--Multipart_Tue_Jul_20_02:09:37_1999-1
Content-Type: text/plain; charset=ISO-2022-JP

Koichi Hashimoto <koichi@sys.okayama-u.ac.jp> writes:

> > >emacs-20.4$B$,=P$?:#!"$J$<$K(Bmule-2.3? $B$H$$$&5$$,$7$J$$$G$b$J$$$G$9$,!#(B
> > 
> > R2L $B$H$+!"(Bline space $B$H$+!"$?$^$4$H$+!"!"!"(B
> 
> $B$d$O$j(B boiled-egg.el $B;H$$$O(B mule-2.3 $B$+$iC&5Q$G$-$J$$$N$G$7$g$&$+!)(B

emacs-20.x $B$GF0$/(B boiled-egg.el $B$r;H$($P2r7h$7$^$9!#4JC1$G$9$M!#(B
# $B$3$N5-;v$O(B emacs-20.4 $B$H(B boiled-egg.el $B$G=q$+$l$F$$$^$9!#(B:-)

$B$$$D=P$?$+3P$($F$J$$$N$G$"$l$G$9$,!"(Bboiled-egg 3.16 $B$KBP$9$k(B
$B:9J,$r$D$1$F$*$-$^$9!#(B


--Multipart_Tue_Jul_20_02:09:37_1999-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="boiled-egg.el.diff"
Content-Transfer-Encoding: 7bit

--- boiled-egg.el.orig	Tue Sep  6 19:20:11 1994
+++ boiled-egg.el	Tue Jul 20 02:01:09 1999
@@ -56,8 +56,13 @@
 ;;;	ksakai@mtl.t.u-tokyo.ac.jp ($B<r0f@6N4(B) $B$5$s(B
 ;;;	mituharu@is.s.u-tokyo.ac.jp ($B;3K\8w@2(B) $B$5$s(B
 
+;;; [Jul 9, 1998] emacs20 $B$GF0$+$9$?$a$K$A$g$C$H=$@5(B
+
 (defmacro if-mule (&rest args)
-  (` (if (boundp 'MULE) (,@ args))))
+  (` (if (or (boundp 'MULE) (string-match "^20" emacs-version)) (,@ args))))
+
+(defmacro if-emacs20 (&rest args)
+  (` (if (string-match "^20" emacs-version) (,@ args))))
 
 (if-mule (require 'egg) (require 'wnn-egg))
 
@@ -136,7 +141,7 @@
   (if be-jisx0201 (require 'jisx0201))
   (or (memq 'be-reset-mode egg-insert-after-hook)
       (setq egg-insert-after-hook (cons 'be-reset-mode egg-insert-after-hook)))
-  (if (and (if-mule mc-flag kanji-flag)
+  (if (and (if-emacs20 nil (if-mule mc-flag kanji-flag))
 	   (not egg:*mode-on*))
       (progn
 	(setq egg:*mode-on* t)
@@ -175,7 +180,8 @@
   "mark source string for transformation, and save it to `be-trans-src'"
   (save-excursion
     (setq be-trans-end (point-marker))
-    (set-marker-type be-trans-end t)
+;;;    (set-marker-type be-trans-end t)
+    (set-marker-insertion-type be-trans-end t)
     (if (re-search-backward be-trans-begin-regexp (point-min) 0)
       (forward-char 1))
     (if (< (point) (marker-position be-trans-end))

--Multipart_Tue_Jul_20_02:09:37_1999-1
Content-Type: text/plain; charset=ISO-2022-JP


-- 
$B?9(B $B9@Fs(B	(MORI Kouji)
E-mail: moriko@hh.iij4u.or.jp
+++ under construction +++

--Multipart_Tue_Jul_20_02:09:37_1999-1--