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

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

184:名無しさん＠お腹いっぱい。
07/12/21 19:04:37 nNO6ohrn0
>>182
昔のスレに出てたこれ使ってるけど、結構便利。

(defun revert-buffer-encoding-popup2 ()
(interactive)
(let ((menu (create-popup-menu)))
(mapc #'(lambda (x)
(add-menu-item menu nil (car x)
#'(lambda ()
(interactive)
(revert-buffer (cdr x)))))
`(("utf-8". ,*encoding-utf8n*)
("sjis" . ,*encoding-sjis*)
("auto" . ,*encoding-auto*)
("euc-jp" . ,*encoding-euc-jp*)))
(track-popup-menu menu)))
(global-set-key '(#\C-c #\e) 'revert-buffer-encoding-popup2)

次ページ

続きを表示

1を表示