🚀 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

--
関水