[xyzzy:04567] Re: 変換

[Toy <s5087@xxxxxxxxxxxxxxxxxxxxx>]

Kyo さん，こんにちは。Toy です。

    Tue, 30 May 2000 23:07:07 +0900 の
    "[xyzzy:04566] Re: 変換" について。

| やった！やりました。ありがとうございます。これは訊かんとまったく解らない
| 内容でした。これで一個一個別名保存しなくて済みます。

えかったです。

| ところでこの入出力先のデフォルトは変更できるのでしょうか？

汚いのんでよろしければ，こんなんでどうでしょう。
前の "sjis2utf と uft2sjis を差し替え" てください。

**** ここから

(defvar *convert-sjis-dir* "D:/User/Toy/sjis/")
(defvar *convert-utf-dir* "D:/User/Toy/utf/")

(defun sjis2utf (from to)
  (interactive "Dsjis2utf: \nDto: "
    :default0 *convert-sjis-dir*
    :default1 *convert-utf-dir*)
  (if (equal from "")
      (setq from *convert-sjis-dir*)
    (setq *convert-sjis-dir* from))
  (if (equal to "")
      (setq to *convert-utf-dir*)
    (setq *convert-utf-dir* to))
  (convert-encoding-directory from to *encoding-utf8*))

(defun utf2sjis (from to)
  (interactive "Dutf2sjis: \nDto: "
    :default0 *convert-utf-dir*
    :default1 *convert-sjis-dir*)
  (if (equal from "")
      (setq from *convert-utf-dir*)
    (setq *convert-utf-dir* from))
  (if (equal to "")
      (setq to *convert-sjis-dir*)
    (setq *convert-sjis-dir* to))
  (convert-encoding-directory from to *encoding-sjis*))

**** ここまで

defvar の宣言の後半の部分を好きなように書き換えると
それがデフォルトになると思います。
(defvar *convert-sjis-dir* "D:/User/Toy/sjis/")
                            ~~~~~~~~~~~~~~~~~
(defvar *convert-utf-dir* "D:/User/Toy/utf/")
                           ~~~~~~~~~~~~~~~~
コードはあまり美しくないかもしんないですけど，
しばらくはこれでもとりあえず動くと思います。

---- 
Toy
  E-mail : s5087@xxxxxxxxxxxxxxxxxxxxx