[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: w3m-load.el 

>> On Wed, 28 Apr 2004 17:31:28 +0900
>> 「山」== yamaoka@jpl.org (Katsumi Yamaoka) said as follows:

山> 生成するファイル名が auto-autoloads.el かどうかで判断するようにし
山> てしまいました。

うーん．

土> それから，当方の XEmacs-21.4.6 では以下のようなエラーになってしま
土> うんですけど…．

山> むう、なぜ起きるかわかりませんが、場所は知ってます。調べますね。

2つ同時に解決する邪悪な方法を思いつきました．

(defun w3mhack-generate-xemacs-load-file (file)
  (with-temp-buffer
    (insert-file-contents w3mhack-load-file)
    (goto-char (point-min))
    (replace-string
     (format "(provide '%s)" (file-name-sans-extension w3mhack-load-file))
     "(if (featurep 'w3m-autoloads) (error \"Already loaded\"))
\(provide 'w3m-autoloads)")
    (goto-char (point-min))
    (replace-string w3mhack-load-file (file-name-nondirectory file))
    (write-region (point-min) (point-max) file)))

;; かえって可読性落ちるかな?

-- 
土屋 雅稔 ( TSUCHIYA Masatoshi )