[xyzzy:04314] 解決：インタラクティブ呼び出し

[吉田豊 <p95095yy@xxxxxxxxxxxxxxxxx>]

吉田です。

亀井さん、今日は。

>  (call-interactively 'write-file)

これが、その名の通りインタラクティブな呼び出しを
実現する関数なのですね。

素早い(それもすばらしく)回答、ありがとうございます。

一応…、

(defun save-file-apart ()
  "ファイル名が無いときは訊く"
  (interactive)
  (if (get-buffer-file-name)
	  (save-buffer)
	(call-interactively 'write-file)))

それでは。

------------------------------------------------------------
吉田豊		e-mail <p95095yy@xxxxxxxxxxxxxxxxx>