xyzzy: toggle-app-menu

(if (featurep :multiple-frames)
  ; マルチフレーム版用の設定
  (defun toggle-app-menu ()
    (interactive)
    (set-menu (unless (current-menu)
                (get-app-menu (selected-frame)))))
  ; 本家 xyzzy 用の設定
  (let ((toggle-app-menu *app-menu*))
    (defun toggle-app-menu ()
        (interactive)
        (set-menu (setq toggle-app-menu
                        (unless toggle-app-menu *app-menu*)))))
)