[xyzzy:07697] get-menu-position

[Osamu Yamane <yamane@xxxxxxxxxxxxxxx>]

山根＠千葉 と申します。

新しいメニューを追加したいのですが (get-menu-position 〜)
が nil を返してくれているようで上手くいきません。
(get-menu-position menu 'tools) の代わりに直接 1 とか 2
などと書くとそれなりに動きます。

(set-menu 
  (let ((menu (copy-menu-items *app-menu* (create-menu))))
    (insert-popup-menu menu (get-menu-position menu 'tools)
		       (define-menu
			 (:item nil "その１"
			  'dummy1)
			 (:item nil "その２"
			  'dummy2))
		       "てすと(&X)")
    menu))

度々で申し訳ありませんが教えて下さい。