🚀 go-pugleaf

  $B:G6a!"(Bcanna-boil $B$,$A$g$C$HOCBj$K>e$C$F$$$^$9$,!"(Bmule 2.3 $B$N(B
canna-boil $B$K$O!";d$,0JA0$3$3$KEj9F$7$?%Q%C%A$N$;$$$G!"=EBg$J%P%0$,J6(B
$B$l9~$s$G$7$^$C$F$$$^$9!J$4$a$s$J$5$$!K!#(B
  $B$3$N5!2q$K!";d$,(B canna-boil $B$K;\$7$?M>7W$JJQ99$r2r>C$7!"$"$H$$$/$D$+(B
$B$N:Y$+$$%P%0$r=$@5$9$k%Q%C%A$rN.$9$H$H$b$K!"!V5$$E$$$?$b$N$N$I$&$d$C$F(B
$BD>$9$+8+Ev$,$D$+$J$+$C$?%P%0!W$rJs9p$7$^$9!J$3$l$i$N%P%0$NCf$K$O!"!V$+(B
$B$s$J!W$H$OL54X78$N(B mule $B8GM-$N$b$N$b4^$^$l$F$$$^$9!K!#(B

$B!c$3$N5-;v$N:G8e$KIU$1$?%Q%C%A$G=$@5$7$?!J$D$b$j$N!K%P%0!d(B
$B#1!,(Bcanna-boil $B$r;H$C$F$$$F!"%_%K%P%C%U%!$K8uJd0lMw$J$I$,I=<($5$l$F$$(B
    $B$k;~$K2?$+%-!<$r2!$9$H!"L58B%k!<%W$KF~$k;v$,$h$/$"$k!#(B

$B#2!,!V$+$s$J!W$NF|K\8l%b!<%I$K$"$k;~$K(B emacs $B$N%a%8%c!<%b!<%I$rJQ99$9(B
    $B$k$H!"F|K\8l%b!<%I$,2r=|$5$l$F$7$^$&!#(B

$B#3!,!V$+$s$J!W$r;H$C$F$$$k$H!"(Bself-insert-after-hook $B$K@5$7$$0z?t$,M?$((B
    $B$i$l$J$$!#(B

$B#4!,H>3Q$N%P%C%/%9%i%C%7%e!JC<Kv$K$h$C$F$O1_$NDL2_5-9f!K$ND>8e$N%]%$%s%H(B
    $B$KA43Q$NJD$83g8LN`$r!V%-!<%\!<%I$+$iD>@\!WF~NO$9$k$H%(%i!<$K$J$k!#$3(B
    $B$3$G!"!V%-!<%\!<%I$+$iD>@\!W$H$$$&$N$O!"J8;zC<Kv>e$GE,Ev$JF|K\8lF~NO(B
    $B%D!<%k$GF~NO$7$?$j!"(Bkterm $BFb$N(B mule $B$K(B kinput2 $B$GF~NO$9$k$h$&$J$3$H(B
    $B$r;X$9!#$J$*!"!V$+$s$J!W$G$O(B mule 2.3 $B$@$H3NDjJ8;zNs$NA^F~$K(B
    self-insert-internal $B$rMQ$$$k$N$G!"$d$O$jF1$8>I>u$,=P$k!#(B

$B!c$3$N5-;v$N%Q%C%A$G$OBP1~$7$F$$$J$$%P%0!d(B
$B#5!,(Bstart-process $B$N(B documnet string $B$,6u$C$]$G$"$k!#(BC-h f $B$G$b2?$bI=(B
    $B<($5$l$J$$$7!"(B${MULE}/etc/DOC* $B$r8+$F$b$d$O$j6u$G$"$k!#(B
      $B%=!<%9$r$A$i$C$H$@$18+$F$_$k$H!"(Bstart-process $B$H$$$&4X?t$O!"(B
    process.c $B$G(B document string $B$,%L%k$N4X?t$H$7$F#1EYDj5A$5$l$?8e!"(B
    mule.el $B$G>e=q$-$7$F$$$k$h$&$G$"$k!#$*$=$i$/!"(BC $B$N%=!<%9$H(B emacs
    lisp $B$N(B $B%=!<%9$+$i(B ${MULE}/etc/DOC $B$r:n$kA`:n$,!"$3$N$;$$$G$&$^$/(B
    $B$$$C$F$$$J$$$N$@$m$&!#(B

$B#6!,(Bfundamental mode $B$N%P%C%U%!$G!"(BC-h s (describe-syntax) $B$r<B9T$9$k(B
    $B$H!"F|K\8l$N3g8LN`$NI=<($,0J2<$N$h$&$KJ8;z2=$1$9$k!#(B

    $B!J(B[ca]		(\222\241K[4b]	which means: open, matches \222\241K[4b]
    $B!K(B[cb]		)\222\241J[4a]	which means: open, matches \222\241J[4a]

$B!JCm!&$b$H$b$H$O(B \222 $B$J$I$OBP1~$9$k#1%P%$%H$N%3!<%I!#$3$3$KN.$9$KEv$?$C(B
$B$F!"A4$FBP1~$9$k#4J8;z$N%"%9%-!<J8;z$KCV$-49$($?!K(B

$B#7!,(Bstart-process $B$d(B call-process $B$G!"(Bexec-path $B$KB8:_$7$J$$%3%^%s%I$r(B
    $B8F$V$H!"%(%3!<%(%j%"$K%7%'%k$+$i$N%(%i!<%a%C%;!<%8$,=P$k$,!"$3$N%a%C(B
    $B%;!<%8$,F|K\8l$G=P$k$h$&$J%7%9%F%`$r;H$C$F$$$k$H!"J8;z2=$1$7$F(B
    $B!V(B\244$B!D!W$N$h$&$J$0$A$c$0$A$c$NJ8;zNs$K$J$C$F$7$^$&!#(B
    process-coding-system $B$r%(%i!<%a%C%;!<%8$K9g$o$;$F@_Dj$7$F$bF1$8$@$C(B
    $B$?!#(B 

  $BEvJ}$N4D6-$O!"(B
SunOS 4.1.2-JLE1.1.2 sparc-sun-sunos4shr Canna3.2p2 gcc2.6.3
HP-UX 9.03,9.05 hppa1.1-hp-hpux9shr Canna3.2p2 gcc2.5.6
$B$G$9!#(B

  $B0J2<$,%Q%C%A$G$9!#$3$N%Q%C%A$O!"(Bmule 2.3 $B0J30$N%P!<%8%g%s$G$O;H$($J(B
$B$$$H;W$$$^$9!#(B

--- /usr/local/lib/mule/19.28/lisp/canna.el-2.3	Mon Aug  7 22:00:43 1995
+++ canna.el	Mon Dec 25 20:17:08 1995
@@ -70,6 +70,7 @@
 ; $B$?$+$J$G$O(B t $B$,%G%U%)%k%H$@$1$I!"(Bnil $B$r%G%U%)%k%H$K$7$F$*$3$&$+$J!#(B
 
 (make-variable-buffer-local 'mode-line-canna-mode)
+(put 'mode-line-canna-mode 'permanent-local t)
 
 ; select-window-hook $B$O(B mule $B$+$iF~$C$?$s$@$H;W$&$1$I!"(B
 ; $B$3$l$,L5$$$H(B preprompt $B$,$"$C$F$b$I$&$7$h$&$b$J$$$N$G$J$$$H$-$O(B
@@ -148,6 +149,7 @@
 (defvar canna:*japanese-mode* nil "T if canna mode is ``japanese''.")
 (make-variable-buffer-local 'canna:*japanese-mode*)
 (set-default 'canna:*japanese-mode* nil)
+(put 'canna:*japanese-mode* 'permanent-local t)
 
 (defvar canna:*japanese-mode-in-minibuffer* nil
   "T if canna mode is ``japanese'' in minibuffer.")
@@ -179,6 +181,9 @@
 (defvar canna:*use-region-as-henkan-region* nil)
 (make-variable-buffer-local 'canna:*use-region-as-henkan-region*)
 (setq-default canna:*use-region-as-henkan-region* nil)
+(put 'canna:*use-region-as-henkan-region* 'permanent-local t)
+(defvar canna:*kakutei-key* ?\C-m
+  "*$B>uBV$N3NDj$K3d$jEv$F$i$l$F$$$k%-!<!#DL>o$O%j%?!<%s%-!<$N%3!<%I#1#3!#(B")
 
 ;;;
 ;;; $B?'$N@_Dj(B
@@ -393,7 +398,7 @@
 ;		(insert canna-kakutei-string)
 		(if self-insert-after-hook
                     (funcall self-insert-after-hook
-                             canna:*region-start* canna:*region-end*))
+			     (- (point)(length canna-kakutei-string)) (point)))
 		(canna:do-auto-fill)
 		(set-marker canna:*epos-undo-text* (point)) )
 	       (t
@@ -427,7 +432,7 @@
 ;		(insert canna-kakutei-string)
 		(if self-insert-after-hook
                     (funcall self-insert-after-hook
-                             canna:*region-start* canna:*region-end*))
+			     (- (point)(length canna-kakutei-string)) (point)))
 		(canna:do-auto-fill) ))
 	 ) ))
 
@@ -704,6 +709,7 @@
 (defun canna:finalize ()
   (cond ((null canna:*initialized*)) ; initialize $B$5$l$F$$$J$+$C$?$i2?$b$7$J$$(B
 	(t
+	 (message "$B!X$+$s$J!Y$N<-=q$r%;!<%V$7$^$9!#(B")
 	 (setq canna:*initialized* nil)
 	 (let ((init-val (canna-finalize)))
 	   (cond ((car (cdr (cdr init-val)))
@@ -711,7 +717,6 @@
 	   (cond ((car (cdr init-val))
 		  (error (car (cdr init-val))) ))
 	   )
-	 (message "$B!X$+$s$J!Y$N<-=q$r%;!<%V$7$^$9!#(B")
 	 )))
 
 (defun canna:enter-canna-mode ()
@@ -1192,32 +1197,18 @@
       (canna-kakutei-to-basic-stat)) ))
 
 (defun canna-kakutei-to-basic-stat ()
-  (let ((res 0)
-	(kakutei canna-henkan-string))
+  (let ((res 0))
     (while (not canna-empty-info)
-;      (setq res (canna-key-proc ?\C-m)))
-      (setq res (canna-do-function canna-func-kakutei)))
-    (setq canna-kakutei-string kakutei)
-    (canna:display-candidates (length canna-kakutei-string))
+      (setq res (canna-key-proc canna:*kakutei-key*)))
+    (canna:display-candidates res)
     (if (not canna:*japanese-mode*)
 	(mode-line-canna-mode-update canna:*alpha-mode-string*))
     ))
 
-(defun canna-minibuffer-henkan-kakutei-and-self-insert (arg)
-  (interactive "p")
-  (set-window-buffer (minibuffer-window) canna:*saved-minibuffer*)
-  (select-window canna:*previous-window*)
-  (if canna:*japanese-mode*
-      (canna:functional-insert-command2 last-command-event arg)
-    (progn
-      (setq unread-command-events (list last-command-event))
-      (canna-kakutei-to-basic-stat)) ))
-
 (defun canna-setup-for-being-boiled ()
   (let ((ch (1+ ? )))
     (while (< ch 127)
       (define-key canna-mode-map (make-string 1 ch) 'canna-henkan-kakutei-and-self-insert)
-      (define-key canna-minibuffer-mode-map (make-string 1 ch) 'canna-minibuffer-henkan-kakutei-and-self-insert)
       (setq ch (1+ ch)))))
 
 (defvar rK-trans-key "\C-j" "for `boil' only")
--- /usr/local/lib/mule/19.28/lisp/simple.el-2.3	Mon Aug  7 22:01:20 1995
+++ simple.el	Thu Nov 30 03:27:41 1995
@@ -2560,8 +2560,8 @@
 (defun blink-matching-open ()
   "Move cursor momentarily to the beginning of the sexp before point."
   (interactive)
-  (and (> (point) (1+ (point-min)))
-       (not (memq (char-syntax (char-after (- (point) 2))) '(?/ ?\\ )))
+  (and (< (point- 2) (point- 1)) ; At least two letters before the point.
+       (not (memq (char-syntax (char-after (point- 2))) '(?/ ?\\ )))
        blink-matching-paren
        (let* ((oldpos (point))
 	      (blinkpos)

		$BEl5~Bg3XBg3X1!M}3X7O8&5f2JJ*M}3X@l96(B $B#D#2(B $B0f5b(B $B7JB@(B