- 235 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/21(月) 00:02:53 ID:W+lsBODd0]
- > #'(lambda () (interactive) (revert-buffer *encoding-utf8n*) が冗長。
こういう書き方もあることはある。あんまりセンスいいとも思わないけど……
(macrolet ((m (v) `#'(lambda () (interactive) (revert-buffer ,v))))
(define-popup-menu
(:item nil "utf-8(&U)" (m *encoding-utf8n*))
(:item nil "sjis(&S)" (m *encoding-sjis*))
...))
