🚀 go-pugleaf

大阪市立大学の秋保といいます。

In article <NOMURA.98Jun25125443@cutting2.eng.kshosen.ac.jp>
    nomura@cutting2.eng.kshosen.ac.jp (NOMURA Masataka &) writes:


nomura> mule におけるバックアップファイルに関してですが，これらのファ
nomura> イルをある一つのディレクトリにセーブするようにはできないもの
nomura> でしょうか．

以下の設定で出来ます。"~/.emacs"に追加してください。

----begin ---
;;「~/bak」ディレクトリがあればそこに
;;バックアップファイルを作成する。
(if (fboundp 'make-backup-file-name-original)
    nil
  (fset 'make-backup-file-name-original
        (symbol-function 'make-backup-file-name))
  (defun make-backup-file-name (fn)
    (if (and (file-exists-p (expand-file-name "~/bak"))
             (file-directory-p (expand-file-name "~/bak/"))
             )
        (concat (expand-file-name "~/bak/") (file-name-nondirectory fn))
      (make-backup-file-name-original fn)
      )
    )
  )

---end --

ただしこれだと、違うディレクトリにある同じ名前のファイルがで
きてしまうと上書きされます。

mule for win32 のメーリングリストで教えてもらいました。

-- 
     秋保強(AKIHO Thuyoshi)
    大阪市立大学院理学研究科 
     レーザー化学研究室 M1
 mail-to:akiho@sci.osaka-cu.ac.jp