xyzzyの使い方が分からぬやし励ましあえその11

xyzzyの使い方が分からぬやし励ましあえその11 at SOFTWARE

232:231
08/01/20 01:51:01 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)

次ページ

続きを表示

1を表示