[MD:6746] easy-menu indent

[小関 吉則 (KOSEKI Yoshinori) <kose@xxxxxxxxxxx>]

http://www.meadowy.org/meadow/netinstall/ticket/18
AUCTeX のメニューが字下げされているという話。

そこからリンクされている snapshot も見てね。
http://www.meadowy.org/meadow/netinstall/attachment/ticket/18/LaTeX-menubar.png
http://www.gnu.org/software/auctex/img/auctex-screenshot.png


再現方法:

(setq lambda-mode-map (make-sparse-keymap))

(easy-menu-define lambda-menu lambda-mode-map
  "'lambda-status-mode' menu"
  '("Lambda"
    ["insert 1" (lambda () (interactive) (insert "1")) t]
    ("abcd"
     ["insert 1" (lambda () (interactive) (insert "1")) t]
     )
    ["Unknown Command" (lambda ())
     :style toggle :selected (lambda ())]
    ))

(use-local-map lambda-mode-map)
(easy-menu-add lambda-menu)

を eval します。


Meadow のメニューはこうなります。
:    insert 1
: abcd                 >
: [x] Unknown Command


NTEmacs や Linux 上でもこうなります。
:   insert 1
:   abcd               >
: v Unknown Command


Meadow だけサブメニューのある項目が左合わせになります。
(サブメニューのある項目がインデントされない)


どなたか心当たりありませんか?  elisp ではなく C の部分じゃな
いかと睨んでるけどわかんなかったんです。
-- 
こせき // kose (a) Meadow y.org