🚀 go-pugleaf

Tatsuro SATOH <tatsu@momonga.ydc.tijp.ti.com> writes:

> X の環境(libraryも)が全く無い stand alone のマシンで
> mule と canna を使用したく、
> FreeBSD 2.2.5R で、Mule-2.3 を --with-x=no オプション付きで
> コンパイルしたのですが、いざ canna を使おうとすると、
> 「候補一覧」などの mini buffer を使用するものが使えません。
> 候補一覧の場合はスペースを押せばフェンス内に次々候補がでてくれますが、
> 記号、部首変換などは全く使用することができません。
> 
> 具体的には mini buffer に frame-focus が定義されていないと
> いうメッセージが出ます。

mule2.3+Cannaってことだと、次のパッチはどうでしょうか？

良く分かってなくて、とにかく使えるようにと作ったパッチですので、
うまく行くかどうか分かりませんが…。

--- /usr/local/lib/mule/19.28/lisp/canna.el	Sat Jul 22 22:09:41 1995
+++ canna.el	Tue Apr 22 22:38:50 1997
@@ -538,11 +538,12 @@
 
         ;; ミニバッファウィンドウに候補一覧用のバッファを割り当てる。
 	(setq canna:*saved-minibuffer* (window-buffer (minibuffer-window)))
-;	(set-window-buffer (minibuffer-window)
-;			   (get-buffer-create canna:*menu-buffer*))
-	(setq canna:*saved-redirection* (frame-focus (selected-frame)))
-	(redirect-frame-focus (selected-frame) 
-			      (window-frame (minibuffer-window)))
+	(if (not (boundp 'frame-focus))
+	    (set-window-buffer (minibuffer-window)
+			       (get-buffer-create canna:*menu-buffer*))
+	  (setq canna:*saved-redirection* (frame-focus (selected-frame)))
+	  (redirect-frame-focus (selected-frame) 
+				(window-frame (minibuffer-window))))
 
 	;; ミニバッファのキーマップを保存しておく。
 	(setq canna:*minibuffer-local-map-backup* (current-local-map))
@@ -567,7 +568,8 @@
   (cond ((> revlen 0)
 	 (backward-char (- len revpos)) ))
   ;;(message "%s" (selected-frame)) (sit-for 3)
-  (raise-frame (window-frame (minibuffer-window)))
+  (if (boundp 'raise-frame)
+      (raise-frame (window-frame (minibuffer-window))))
 ;  (select-frame (window-frame (minibuffer-window)))
   (and canna:color-p (not (eobp)) 
        (canna:select-attr-on (point) 
@@ -582,9 +584,10 @@
 
 	;; ミニバッファウィンドウのバッファを元に戻す。
 	(set-window-buffer (minibuffer-window) canna:*saved-minibuffer*)
-;	(setq canna:*saved-minibuffer* nil)
-	(redirect-frame-focus (window-frame canna:*previous-window*)
-			      canna:*saved-redirection*)
+	(if (not (boundp 'redirect-frame-focus))
+	    (setq canna:*saved-minibuffer* nil)
+	  (redirect-frame-focus (window-frame canna:*previous-window*)
+				canna:*saved-redirection*))
 	; ミニバッファで入力していたのなら以下もする。
 ;	(if (eq canna:*previous-window* (selected-window))
 ;	    (progn

--
関水

$B:4F#$G$9!#(B

SEKIMIZU Hidemasa <sekimizu@fukuda.co.jp> writes:

> > X $B$N4D6-(B(library$B$b(B)$B$,A4$/L5$$(B stand alone $B$N%^%7%s$G(B
> > mule $B$H(B canna $B$r;HMQ$7$?$/!"(B
($B>JN,(B)
> > $B6qBNE*$K$O(B mini buffer $B$K(B frame-focus $B$,Dj5A$5$l$F$$$J$$$H(B
> > $B$$$&%a%C%;!<%8$,=P$^$9!#(B
> mule2.3+Canna$B$C$F$3$H$@$H!"<!$N%Q%C%A$O$I$&$G$7$g$&$+!)(B

$BAaB.%Q%C%A$rEv$F$F$_$^$7$?!#(B
select-frame $B$,(B 2$B2U=j$[$I;D$C$F$$$F!"$^$@(B Warning $B$,$G$F$$$?$N$G!"(B
$B99$K(B select-frame $B$r8F$s$G$$$k=j$r=|30$7$?7k2L!"(B
$B!V0lMw!W!"!VIt<s!W!"!V5-9f!W$N8uJd$,(B mini-buffer $B$KI=<($5$l$k$h$&$K(B
$B$J$j$^$7$?!#(B

$B$3$l$G(B PocketBSD(FreeBSD for Mobile Gear)$B>e$G!"(B
$B%9%H%l%9L5$/F|K\8lF~NO$,$G$-$k4D6-$,@0$$$^$7$?!#(Bv(^^)

$B$"$j$,$H$&$4$6$$$^$9!#(B

==================================
Tatsuro SATOH
Texas Instruments Japan Ltd.
MSDS Flat Display Project, Design
mailto:tatsu@ti.com
==================================

$B:4F#!w<+8J%l%9$G$9!#(B

> > mule2.3+Canna$B$C$F$3$H$@$H!"<!$N%Q%C%A$O$I$&$G$7$g$&$+!)(B
> $BAaB.%Q%C%A$rEv$F$F$_$^$7$?!#(B
> select-frame $B$,(B 2$B2U=j$[$I;D$C$F$$$F!"$^$@(B Warning $B$,$G$F$$$?$N$G!"(B
> $B99$K(B select-frame $B$r8F$s$G$$$k=j$r=|30$7$?7k2L!"(B

Warning $B$,=P$?$N$O!"(BMule(Emacs 19.34.2) $B$N(B canna.el $B$K(B
patch $B$rE,MQ$7$?$?$a!"$&$^$/Ev$?$C$F$$$J$+$C$?$+$b$7$l$^$;$s!#(B
$B2H$K5"$C$F$+$i$b$&0lEY;n$7$F8+$^$9!#(B

==================================
Tatsuro SATOH
Texas Instruments Japan Ltd.
MSDS Flat Display Project, Design
mailto:tatsu@ti.com
==================================