- 232 名前：231 [2008/01/20(日) 01:51:01 ID:X41jUVF+0]
- 素人なりに >>185 書いてみました。
「ファイル(&F)」→「名前の変更（&R）」に追加する方法がわからねえ orz
#'(lambda () (interactive) (revert-buffer *encoding-utf8n*) が冗長。
encoding-menu 内にdefun したけど関数内って言われた・・・
あと、(interactive)かかないと動かないのがわからん
修正頼む・・・
(defun encoding-menu ()
(setq *encoding-menu-item*
(define-popup-menu
(:item nil "utf-8(&U)" #'(lambda () (interactive) (revert-buffer *encoding-utf8n*)))
(:item nil "sjis(&S)" #'(lambda () (interactive) (revert-buffer *encoding-sjis*)))
(:item nil "euc-jp(&E)" #'(lambda () (interactive) (revert-buffer *encoding-euc-jp*)))
(:item nil "auto(&A)" #'(lambda () (interactive) (revert-buffer *encoding-auto*)))
:sep
(:item nil "詳細指定(&)" #'(lambda (encoding)
(interactive "zEncoding: ")
(revert-buffer encoding)))
))
(insert-popup-menu *app-menu* (get-menu-position *app-menu* 'ed::file)
*encoding-menu-item* "エンコーディング指定して再読み込み(&G)"))
(add-hook '*init-app-menus-hook* #'encoding-menu)
|
 |
