- 337 名前：332 mailto:sage [2008/02/12(火) 06:59:15 ID:SUwXSJwZ0]
- 途中ミスってました。気づいたら、xyzzyのメニューがなくなっててびっくりした
何度も吸いません
> (defun encoding-menu-in-file-autoload ()
> (let ((filemenu (get-menu *app-menu* 'ed::file)))
> (insert-popup-menu filemenu
> (1- (get-menu-position (get-menu *app-menu* 'ed::file) :above-session))
> (encoding-menu '*encoding-menu* 'revert-buffer)
> "Reopen with Encoding (&G)\tC-c e")))
(defun encoding-menu-in-file-autoload ()
(let ((filemenu (get-menu *app-menu* 'ed::file)))
(insert-popup-menu filemenu
(1- (get-menu-position (get-menu *app-menu* 'ed::file) :above-session))
(encoding-menu *encoding-menu* 'revert-buffer)
"Reopen with Encoding (&G)\tC-c e")))
|
 |
