- 184 名前:名無しさん@お腹いっぱい。 mailto:sage [2007/12/21(金) 19:04:37 ID: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)
|

|