>>90
.xyzzy に
(setq *file-dialog-filter*
'(("テキストファイル(*.txt;*.doc;*.log)" . "*.txt;*.doc;*.log")
("C/C++(*.c;*.cpp;*.cxx;*.h)" . "*.c;*.cpp;*.cxx;*.cc;*.h;*.hxx")
("Lisp(*.l;*.lisp)" . "*.l;*.lisp")
("HTML(*.htm;*.html)" . "*.htm;*.html")
("HPGL(*.hpg)" . "*.hpg")
("すべてのファイル(*.*)" . "*.*")))
(setq *file-dialog-filter-index* 6)