emacs 23 がリリースされたので、各環境で乗り換えました。
とりあえず、mac の方のフォント設定がこけたので mac用 に別途設定。
以下のようにしました。
;; .emacs
(defvar run-darwin (equal system-type 'darwin))
;; Emacs の種類, version 判別
(defvar run-emacs20
(and (equal emacs-major-version 20)
(null (featurep 'xemacs))))
(defvar run-emacs21
(and (equal emacs-major-version 21)
(null (featurep 'xemacs))))
(defvar run-emacs22
(and (equal emacs-major-version 22)
(null (featurep 'xemacs))))
(defvar run-emacs23
(and (equal emacs-major-version 23)
(null (featurep 'xemacs))))
(defvar run-meadow (featurep 'meadow))
(defvar run-meadow1 (and run-meadow run-emacs20))
(defvar run-meadow2 (and run-meadow run-emacs21))
(defvar run-meadow3 (and run-meadow run-emacs22))
(defvar run-xemacs (featurep 'xemacs))
(defvar run-xemacs-no-mule
(and run-xemacs (not (featurep 'mule))))
(defvar run-carbon-emacs (and run-darwin window-system))
;; mac 用設定読み込み
(when (or run-xemacs run-darwin)
(load "init-mac"))
;; ---------------------------------------------------
;; init-mac.el
(when run-emacs23
(set-face-attribute 'default nil
:family "Monaco"
:height 120)
(set-fontset-font "fontset-default"
'japanese-jisx0208
'("Osaka" . "iso10646-1"))
(set-fontset-font "fontset-default"
'katakana-jisx0201
'("Osaka" . "iso10646-1"))
(setq face-font-rescale-alist
'((".*Monaco-bold.*" . 1.0)
(".*Monaco-medium.*" . 1.0)
(".*Osaka-bold.*" . 1.2)
(".*Osaka-medium.*" . 1.2)
("-cdac$" . 1.4)))
)
日本語は Osaka, コード書く上では 等幅がいいので ascii の方は Monaco です。
# syntax highligher に lisp が無いので見づらくなってしまった。。

directory submission says:
I do agree with all the ideas you have presented in your post. They are very convincing and will definitely work. Thanks for the post.
17 7月 2010, 7:37 amPorter Fadness says:
Very informative post, love the way in which you write and I believe that the knowledge helps in a way. I don’t usually say this, but I feel this is a nice job done. In the event you like to alternate links, I might be very happy to provide a hyperlink back to your site. Hope to hear from you soon. Cheers
26 7月 2010, 10:59 amGeorge says:
I’ve been earning my living on the net since 2003. I remember the first sites I made, and when I made my first pennies. lol I was excited!!! I’ve recently found a new way to get tons of visitors to my sites for almost free. I use these cheap visitors to sell affiliate goods to and am cashing really well with it. Read about it here if you want to at $$$. It helped me go from $100 a day on a few sites to a net of $300++ pretty fast.
28 7月 2010, 6:23 am