[xyzzy:06338] Re: バグレポ＆質問

[Toy <s5087@xxxxxxxxxxxxxxxxxxxxx>]

大矢さん，こんにちは。Toy です。

    Tue, 13 Mar 2001 00:11:49 +0900 の
    "[xyzzy:06334] バグレポ＆質問" について。

2 つ目いきます。

| 3.	最近使ったファイルリストをバッファ選択のように出したいのですが可能でしょうか

こんな感じでどうでしょうか？
# やっぱり複数ファイル一気に選択できた方がうれしかったりしますか？

(defun list-file ()
  (interactive)
  (let ((hist (subseq *minibuffer-file-name-history* 0 9)))
    (multiple-value-bind (result data)
	(dialog-box '(dialog 0 0 262 108
		      (:caption "File List")
		      (:font 9 "ＭＳ Ｐゴシック")
		      (:control
		       (:listbox files nil #x50b10101 7 7 248 75)
		       (:button IDOK     "OK"    #x50010001 148 88 50 14)
		       (:button IDCANCEL "キャンセル" #x50010000 205 88 50 14)))
		    (list (cons 'files hist))
		    '((files :must-match t :enable (IDOK))))
      (when result
	(let ((file (cdar data)))
	  ; ファイルを開く
	  (when (file-exist-p file)
	    (find-file file)
	    (add-history file '*minibuffer-file-name-history*)))))))

(global-set-key #\M-F2 'list-file)	; ESC → F2 に割り当て

# "キャンセル" はいちおー半角でお願いします m(_ _)m

-- 
Toy
  E-mail : s5087@xxxxxxxxxxxxxxxxxxxxx