15/07/23 00:25:03.25 kuf+i815.net
>>103
②も…に、
(setq *replace-dialog-template*
'(dialog 0 0 242 115
(:caption "文字列の置換")
(:font 9 "MS UI Gothic")
(:control
(:static nil "置換(&R):" #x50020000 7 29 32 8)
(:combobox replace nil #x50210842 39 26 140 96)
(:static nil "検索(&S):" #x50020000 7 10 32 8)
(:combobox search nil #x50210842 39 7 140 96)
(:button case-fold "大文字小文字を区別する(&C)" #x50010006 39 46 113 10)
(:button word "単語単位で検索する(&W)" #x50010003 39 59 97 10)
(:button regexp "正規表現(&E)" #x50010003 39 72 63 10)
(:button escseq "エスケープシーケンスを理解しろ(&Y)" #x50010003 39 85 113 10)
(:button whole "バッファの先頭から(&O)" #x50010003 39 98 89 10)
(:button query "確認あり(&Q)" #x50010001 185 7 50 14)
(:button all "全て置換(&A)" #x50010000 185 24 50 14)
(:button IDCANCEL "キャンセル" #x50010000 185 41 50 14))))
を追加で。置換と検索のところを入れかえだだけで出来るみたいだ。