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

[santarou <santarou@xxxxxxxxxxxxxxx>]

takeharu_yanagiura@xxxxxxxxxxxxxxxxx さん、こんにちは。
      On 2002/11/13 10:34:33
      "save-as-dialog の一時的上書き？" 
      への返事です。

> ファイル→名前を付けて保存　で
> 
> save-as-dialog
> 
> が呼ばれますが、hogehoge-mode　中でのみ
> 異なる　save-as-dialog　を　呼び出す方法が
> ありましたら、ご教示ください　m(_　_)m
> 
> あくまでも、ファイル→名前を付けて保存　で　異なる動作を
> したい・・・という意味です。
> もしかして、別途　メニューを作る必要があるのでしょうか。
> mode　の全体像がさっぱり理解できていません(^^;
> 以上、よろしくお願いします。

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

;.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つ ついてない )



----------------------------------------------------
   |mail to      start@xxxxxxx
o-o|mail to      santarou@xxxxxxxxxxxxxxx
 * |homepage http://www.Afis.To/~start/ 
 ^ |TKI
----------------------------------------------------