[xyzzy:04312]

[吉田豊 <p95095yy@xxxxxxxxxxxxxxxxx>]

吉田(豊)です。

ファイル名が無い場合とある場合とで
Ctrl-x Ctrl-s の動作を変えようと、以下のような
コードを書いてみました。

(define-key ctl-x-map #\C-s 'save-file-apart)

(defun save-file-apart ()
  (interactive)
  (if (get-buffer-file-name)
	  (save-buffer)
	(write-file)))

しかし、このままではwrite-file の部分で
「引数が少なすぎ」というエラーが出ます。

どこを変えたらよいのでしょうか。

丁度、M-x から write-file を行ったときのような動作を
期待しています。

よろしくお願いします。
------------------------------------------------------------
吉田豊		e-mail <p95095yy@xxxxxxxxxxxxxxxxx>