[xyzzy:01219] Re: my-app-menu II

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

須田さん、こんにちは。

    Tue, 24 Nov 1998 20:22:48 +0900 の
   “[xyzzy:01218] my-app-menu II”
    への返事です.

| M-C-RButtonPress で、kill-ring のメニュー
| が出、選択するとそれが挿入されるつもり
| なのですが、そうなってくれません。

これを、

  (let (string)
    (dotimes (arg *kill-ring-max*)
      (setq string (car (current-kill arg)))
      (add-menu-item *my-app-popup-menu* 'yank-select
		     string
		     #'(lambda ()
			 (interactive)
			 (insert string)))))

こうすれば、

  (dotimes (arg *kill-ring-max*)
    (let ((string (car (current-kill arg))))
      (add-menu-item *my-app-popup-menu* 'yank-select
		     string
		     #'(lambda ()
			 (interactive)
			 (insert string)))))

うまくいくと思います。元のやつだと、(insert string) の string 
が全部同じものなので、どれを選んでも同じものが insert されてし
まいます。

| あと、C-RightButton でも M-C-Right-Button
| でも同じようになってしまうのですが、
| そのわけはなんでしょう？

mouse-meta-ctl-right-press では outline で付けたメニューを削除
してなくて、mouse-ctl-right-press では yank-select で付けたメニ
ューを削除していないからです。それぞれで両方削除するようにする
か、別々のメニューを使えばいいはずです。

| それから、いつも日付が最初にあるのは
| かっこ悪いんですが、このへんがわからない
| のでそうなっています。かっこよくするには
| どうすればいいのでしょう？

どうなればかっこよくなるんでしょう?(^^;
たまに真ん中にいったり、最後にいったりする?

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx