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