Katsumi Yamaoka <yamaoka(a)jpl.org&gt; writes: ~/.xemacs/xemacs-packages の下に放り込んで試してみましたが、 (set-face-forground 'default "red") とやると、赤になってくれました。 ChangeLog によると、変更は * flyspell.el (global-flyspell-mode): add missing autoload. だけなので、text-modes が悪いのではないと思います。 ちなみに、私の環境では何日か同じ XEmacs を使い続けていると、 ときどきその frame で face を変更できなくなることがあります。 そこで新しい frame を開くと face が変更されていたりします。 bug だろうとは思うのですが、必ず再現させる方法が分からないの で、全然調べていません。(^^;; -- Yoshiki Hayashi

Katsumi Yamaoka <yamaoka(a)jpl.org&gt; writes: 今使っている XEmacs session でも face が変更できなくなってし まいました。(;_;) でも、私の場合はやっぱり frame を開くとその frame では大丈夫 です。 とりあえず、帰ってから gdb を attach して怪しそうなところを 探してみようと思いますが、原因が分かればお願いします。 # その前にちゃんと code を読まねば... # いい加減頭が働かなくなってきたので、そろそろ帰ります。 -- Yoshiki Hayashi

山岡> flyspell の何が悪いのか? (*1) 本命のこちらはまだわかりませんが、 山岡> flyspell を load するのは何者か? (*2) これは auto-autoloads.el(c) なんですね。(^^;;) というのは (defcustom global-flyspell-mode nil ...) の :set 項にある global-flyspell-mode という関数が必要なために flyspell が autoload さ れるわけです。そこで、 ;;;###autoload (defcustom global-flyspell-mode nil "Toggle Global Flyspell mode. ..." :set (lambda (symbol value) (if (featurep 'flyspell) (global-flyspell-mode (or value 0)))) :type 'boolean :group 'flyspell :require 'flyspell) というふうに flyspell.el を書き換えて package を作り直すか、またはこれ そのものを auto-autoloads.el に書き込んで compile し直せば、XEmacs の 起動時に flyspell が load されることはなくなります。 もちろん、これではぜんぜん解決策にはなっていませんけれども。(^^;;) -- ~{I=8T?KC＠~} <yamaoka(a)jpl.org&gt;

林さん> autoload のはずなのに、本体が require されてしまうのは嬉しく 林さん> ないので、その部分を patch にして送って頂けるとありがたいで 林さん> す。たとえそれが本体の bug を隠してしまったとしても。(^^;; はい、このことはさきほど xemacs-beta にも投げたので、誰かがやってくれ るんじゃないかと思いますが、放っておかれるようだったら出します。もっと も、ぼくは flyspell の中身がまだぜんぜん理解できていないんですが。:-p 林さん> 私の場合は、flyspell を require しても大丈夫でした。なんとな 林さん> く、長時間使った後に発生するので、その間に使った face をいじ 林さん> るものというと gnus しか無いので、こっちはそのあたりを疑って 林さん> います。もしかすると、引き起こすものが違うだけで、発生してい 林さん> るbug は同じなのかもしれません。 林さん> とりあえず怪しそうなところは発見したものの、 林さん> specifier.c の code をわかっていないので、中断しています。後 林さん> でがんばって読む予定です。:-) ぼくも折りを見て調べてみます。XEmacs --vanilla で起動した後で flyspell を load するぶんには問題が起きないのが不思議です。 -- Katsumi Yamaoka <yamaoka(a)jpl.org&gt;

林さん> ようやく specifier がどういう構造をしているか理解しました。 [...] 林さん> read-passwd が犯人であることが判明しました。 そうですか。 ぼくは林さんとは別の側から穴を掘っているんですが、どこかでお会いしてし まうことはないかしらん。:-p 今までにわかったのは face の操作を不可能にしてしまう原因は flispell.el そのものにはなくて defface でした。おそらくどのディレクトリにあるもの でも構わないと思うのですが、auto-autoloads.el に (defface foo '((((class color)))) "") などと書き足して byte-compile し、その後 XEmacs を起動すると起こります。 ;; 次は defface の読み下しということになるんですが、これは辛そう。:-< -- ~{I=8T?KC＠~} <yamaoka(a)jpl.org&gt;

Yoshiki Hayashi <yoshiki(a)xemacs.org&gt; writes: と書いておきながら、結局現実逃避をして patch を書いてしまい ました。直接の原因は face.el の get-custom-frame-properties の (setq default-custom-frame-properties (extract-custom-frame-properties (selected-frame))) で、auto-autoloads.el が読まれる時点ではまだ X の frame は存 在していないので、値として (type stream class nil background dark) というのが設定されてしまい、後の設定が壊れます。ちなみに私の 今の環境では (type x class color background light) になります。 それで、auto-autoloads.el が何かの package を require してい ると、その package が frame や device 操作をして結果を保存す るような code であった場合は動作しなくなってしまいます。です ので、auto-autoloads.el の読み込みを frame 作成後に移動する ように patch を書いてみました。 この patch の問題点は、XEmacs の frame が popup した後にしば らく stat しまくるので、ちょっと XEmacs が止まっているように 見えることで、実際の起動時間はほとんど変わらないはずですが、 体感速度はかなり落ちます。 # これを英語で説明するのは大変だなぁ。相変らず英語は不得手な # ので、英語の文は日本語の文よりかなり短くなる傾向があります。 # (^^;; 山岡さんの所でも直るかどうか試していただけないでしょうか。 Index: startup.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/startup.el,v retrieving revision 1.24.2.8 diff -u -r1.24.2.8 startup.el --- startup.el 2000/01/18 13:54:36 1.24.2.8 +++ startup.el 2000/01/19 05:53:14 ＠＠ -409,18 +409,6 ＠＠ debug-paths)) (startup-setup-paths-warning)) - (if (and (not inhibit-autoloads) - lisp-directory) - (load (expand-file-name (file-name-sans-extension autoload-file-name) - lisp-directory) nil t)) - - (if (not inhibit-autoloads) - (progn - (if (not inhibit-early-packages) - (packages-load-package-auto-autoloads early-package-load-path)) - (packages-load-package-auto-autoloads late-package-load-path) - (packages-load-package-auto-autoloads last-package-load-path))) - (unwind-protect (command-line) ;; Do this again, in case .emacs defined more abbreviations. ＠＠ -588,6 +576,21 ＠＠ ;; When not in batch mode, this creates the first visible frame, ;; and deletes the stdio device. (frame-initialize)) + + (if (and (not inhibit-autoloads) + lisp-directory) + (load (expand-file-name (file-name-sans-extension autoload-file-name) + lisp-directory) nil t)) + ;; #### Autoloads needs to be done after device initialize, + ;; or defface will fail if auto-autoloads.el requires some package. + ;; However, this makes XEmacs startup looks somewhat slower + ;; since it does not redisplay while doing this. + (if (not inhibit-autoloads) + (progn + (if (not inhibit-early-packages) + (packages-load-package-auto-autoloads early-package-load-path)) + (packages-load-package-auto-autoloads late-package-load-path) + (packages-load-package-auto-autoloads last-package-load-path))) ;; ;; We have normality, I repeat, we have normality. Anything you still -- Yoshiki Hayashi

Katsumi Yamaoka <yamaoka(a)jpl.org&gt; writes: ハードディスクが速いマシンをお使いのようでうらやましいです。 普段常用しているのは laptop なので、ハードディスクはそんなに 速く無いのです。(;_;) ;; commiter 増やそうキャンペーンの一環として、address も一緒 ;; にもらいました。ま、大学の方に転送されてるだけですけど、 ;; XEmacs 関連のところでは使うように設定しました。:-) 本当に auto-autoloads を load する code を移しても大丈夫かなぁ と startup.el を眺めてみたのですが、問題は無さそうなのでそう してしまいました。後は reviewer の反応を待つだけです。(^^;; /usr/local/lib/xemacs 以下が NFS mount されていたりすると効 果覿面じゃないか、という予想をしています。 ;; もしかして忘れられたようにときどき置いてあった NEWS OS が ;; 走っているマシンでしょうか。:-) 1/100 倍で無いことを祈りつつ、がんばって書いてみました。40行 も自分だけで書いた英文があるなんて珍しい。 # fill-column は 60 ですけど。:-P -- Yoshiki Hayashi