[MD:808] Re: Home Setting

[Shun-ichi GOTO <gotoh@xxxxxxxxxxx>]

後藤＠太陽計測です

＃meadow-developにもCc:しておきます

>>>>> From: Akihiro Motoki <mokkun@xxxxxxxxxxx>
> 全然、話題は違うのですが、Meadowで
> M-x set-face-foreground をしようとすると、
> face名を入力した後で、Wrong type argument: sequencep, color
> というエラーが出るのですが、皆さんのところではどうでしょうか。

でますね (^^;
これをinteractiveで使うことはあまりないので発覚しなかったのかな？

どうも、w32-win.el の internal-face-interactive で発生しているようです。
このコードでは、faces.elやmw32-faces.elのオリジナルのものを拡張して
Windowsのダイアログを呼び出すことを意図していたのか、
そこらへんの実装が中途ハンパなままなので、エラーとなってしまったよう
ですね。

実際にはそういったダイアログを呼び出す関数(w32-select-colorなど)は
実装されていませんし、そういったあたりから勝手に推測するに、たぶん
中途ハンパな状態のまま、himiさんのTODOリストから抜け落ちて忘れて
しまったのではないかな、と。

ということなので、とりあえずの回避方法として、ダイアログを使わない
オリジナルな動作を行うのでよければ、この部分をコメントアウトして
byte-compile-file & dump すればよいようです。

＃当然、そういうダイアログによる設定関数を自分で実装するのでも
＃よいようです。(^^;


--- w32-win.el.orig	Mon Dec 08 16:35:18 1997
+++ w32-win.el	Thu Jul 30 04:51:43 1998
@@ -651,23 +651,23 @@
 
 ;; Remap some functions to call w32 common dialogs
 
-(defun internal-face-interactive (what &optional bool)
-  (let* ((fn (intern (concat "face-" what)))
-	 (prompt (concat "Set " what " of face"))
-	 (face (read-face-name (concat prompt ": ")))
-	 (default (if (fboundp fn)
-		      (or (funcall fn face (selected-frame))
-			  (funcall fn 'default (selected-frame)))))
-	 (fn-win (intern (concat (symbol-name window-system) "-select-" what)))
-	 (value 
-	  (if (fboundp fn-win)
-	      (funcall fn-win)
-	    (if bool
-		(y-or-n-p (concat "Should face " (symbol-name face)
-				  " be " bool "? "))
-	      (read-string (concat prompt " " (symbol-name face) " to: ")
-			   default)))))
-	 (list face (if (equal value "") nil value))))
+;(defun internal-face-interactive (what &optional bool)
+;  (let* ((fn (intern (concat "face-" what)))
+;	 (prompt (concat "Set " what " of face"))
+;	 (face (read-face-name (concat prompt ": ")))
+;	 (default (if (fboundp fn)
+;		      (or (funcall fn face (selected-frame))
+;			  (funcall fn 'default (selected-frame)))))
+;	 (fn-win (intern (concat (symbol-name window-system) "-select-" what)))
+;	 (value 
+;	  (if (fboundp fn-win)
+;	      (funcall fn-win)
+;	    (if bool
+;		(y-or-n-p (concat "Should face " (symbol-name face)
+;				  " be " bool "? "))
+;	      (read-string (concat prompt " " (symbol-name face) " to: ")
+;			   default)))))
+;	 (list face (if (equal value "") nil value))))
 
 ;; Redefine the font selection to use the standard W32 dialog
 


＃でも、ダイアログでカラーが選べるといいよね。。。


--- Regards,
 Shun-ichi Goto  <gotoh@xxxxxxxxxxx>
   R&D Group, TAIYO Corp., Tokyo, JAPAN