[xyzzy:08546] Re: save-as-dialog の一時的上書き？

[takeharu_yanagiura@xxxxxxxxxxxxxxxxx]

santarouさん、ありがとうございます。

メニューを書き換える方法もわかって
勉強になりました^^

取り急ぎ、お礼まで。


-------------------------------------

>;強引な手ですが書いてみました。モード毎にいろいろやる必要がありますが

>;.xyzzyに以下のように書いてください
>;save-as-NANKA という関数を hogehoge-modeの時呼び出します。

>(defun save-as-dialog-mine ()
> (interactive)
>  (let ((now-mode))
>            (setq now-mode (buffer-local-value (selected-buffer)
'buffer-mode))
>   (cond ((string-equal now-mode "hogehoge-mode")
>                      (save-as-dialog-NANKA))
>                     (t (save-as-dialog))
>                     )
>          )
>  )
>
>(let ((tm)(gtm))
>          (setq tm (get-menu *app-menu* 0 t))
>          (setq gtm (get-menu tm 4 t))
>          (delete-menu tm 4 t)
>          (insert-menu-item tm 4 nil "名前を付けて保存+(&A)"
'save-as-dialog-mine)
>)
>;4という字が違うかもしれません。上から5個目？

>;メニューに置き換えてますが 何か違うみたいです。
>;知っている人お願いします。
>;(後ろに,点が3つ ついてない )