[xyzzy:07219] Re: ファイルリネーム時の初期ファイル名

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

toyoshi.kabata@xxxxxxxxxさん、こんにちは。

	2001年6月29日(金)[17:00:13]の、
	[xyzzy:07217] ファイルリネーム時の初期ファイル名
	への返事です。

|   の状態で「↑」キーを押したときに最初に表示されるファイル名を
|   現在作業中のファイル名にするには、どうすればいいのでしょうか？

こんな。

(defun foo (filename)
  (interactive (list
		(let ((#1=#:list *minibuffer-file-name-history*)
		      (name (get-buffer-file-name)))
		  (declare (special #1#))
		  (and name (push name #1#))
		  (setf (get '#1# 'ed::minibuffer-history-variable) '#1#)
		  (setq name (read-file-name "rename: "
					     :title "ファイル名の変更"
					     :history '#1#))
		  (add-history name '*minibuffer-file-name-history*)
		  name)))
  (rename filename))

-- 
亀井哲弥(KAMEI Tetsuya)
kamei@xxxxxxxxxxxx