🚀 go-pugleaf

   In fj.editor.mule tominaga@kurasc.kyoto-u.ac.jp wrote:
   > <754nnk$jq4$1@spring.kuee.kyoto-u.ac.jp>の記事において
   > tsuchiya@pine.kuee.kyoto-u.ac.jpさんは書きました。
   >>> ~/.emacs の中で load されているものを、autoload にする。どんどん
   >>> 分割して、byte compile してしまう。そんなとこでしょうか。
   > でも, 元の質問をされた方はかなりいいマシンをお持ちのようですし, 
   > そんなことしてもあんまりかわらない気がします

あんまり、お呼びじゃないような気もするけど、僕が使ってる
方法を紹介しときます。僕は、.emacsをbyte-compileするために、
以下を使っています。興味があれば、どうぞ。

--- 前半開始
;;; Wrapper to make .emacs self-compiling.
;;; (To recompile .emacs interactively, just reload it.)
;;; Author: Bill Brodie <wbrodie@panix.com>   Last Rev: Fri Apr 7 10:19 1995
;;; Changed by Kazushi Jam Marukawa <jam@pobox.com>

(defvar init-top-level t)
(defvar init-complete nil)

(if init-top-level
    (let ((init-top-level nil)
	  (elc-filename
	   (cond ((string< emacs-version "19") "~/.emacs18.elc")
		 ((string< emacs-version "20") "~/.emacs19.elc")
		 ((string< emacs-version "21") "~/.emacs20.elc")
		 (t "~/.emacsxx.elc"))))
      (if (file-newer-than-file-p "~/.emacs" elc-filename)
          (progn
            (or init-complete (load "~/.emacs" nil t t))
            (byte-compile-file "~/.emacs")
	    (if (file-exists-p "~/.emacsc")
		(rename-file "~/.emacsc" elc-filename t))
	    (if (file-exists-p "~/.emacs.elc")
		(rename-file "~/.emacs.elc" elc-filename t)))
        (or init-complete (load elc-filename nil t t))))
(progn

;;;     <Your current .emacs file here, unchanged>
--- 前半終了

--- 後半開始
;;; Matches IF from top of file
))
--- 後半終了

最初の.emacsを、前半と後半で囲んで利用します。

-- かずし