Re: byte-compile & cl-macs

[ari@xxxxxxxxxxxxxxxx (Akihiro Arisawa)]

>>>>> In <20010306.015153.42411154.gotoh@taiyo.co.jp> 
>>>>>	Shun-ichi GOTO <gotoh@taiyo.co.jp> wrote:

後> ## 新しいMLの方にて返信します。
後> ## 念のためCc:有沢さん

;; 新しい ML は subscribe しないと投稿できないかったので、
;; subscribe しました。
;;;; よろしくお願いします。

後> >>>>> at Mon, 05 Mar 2001 23:45:04 +0900
後> >>>>> ari ==  <ari@mbf.sphere.ne.jp> said,

ari> emacs-w3m を使わせてもらってますが、byte-compile すると load 時に
ari> 以下のようなエラーとなってしまいます。
後> 確認しました。でもって対処しました。(rev. 1.63)

ありがとうございます。おかげで w3m.el を byte-compile して使えました。

が、mime-w3m.el を byte-compile すると w3m-mime-preview-text/html を
実行時に以下のエラーが発生しました(^^;

Invalid function: (macro . #[(start end keymap) "\201\303\10\11\201\304\201\305\201\306\41\203\16\0\201\302\202\17\0\201\307\104\12\201\257\5\207" [start end keymap put-text-property quote featurep xemacs local-map] 6])

defmacro-maybe したファイル中でそのマクロを使うと、byte-compile 時に
展開されないためみたいです。

添付のようにすると展開されましたが、defmacro を使うようにしても
良いのではないでしょうか。

Index: mime-w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/mime-w3m.el,v
retrieving revision 1.2
diff -u -w -r1.2 mime-w3m.el
--- mime-w3m.el	2001/03/01 09:28:59	1.2
+++ mime-w3m.el	2001/03/06 15:03:17
@@ -50,6 +50,8 @@
   (error nil))
 (require 'mime)
 
+(require 'poe)
+(eval-and-compile
 (defmacro-maybe mime-put-keymap-region (start end keymap)
   `(put-text-property ,start ,end
 		      ',(if (featurep 'xemacs)
@@ -65,6 +67,7 @@
 	   (font-set-face-background 'default color (current-buffer))
 	   ))
     (cons 'progn body)))
+  )
 
 (defun w3m-mime-preview-text/html (entity situation)
   (goto-char (point-max))
-- 
有沢 明宏
mime-w3m を使うと nnshimbun が非常に快適になりました:-)