[linux-users:78054] Re: .emacsでのバックアップ作成ディレクトリの指定方法

[Susumu Miwa (三輪 晋) <s_miwa _at_ xxxxxxxxxxxxxxxxx>]

みわです。


From: Yuki Okada <y_okada _at_ isj.co.jp>
Subject: [linux-users:78046] .emacsでのバックアップ作成ディレクトリの指定方法
Date: Wed, 27 Dec 2000 16:50:40 +0900


> おかだ＠ISJと言います。

ども。


> 当方、エディタとしてemacs19.34.1ベースのMuleを使用しております。
> バックアップファイルを作成してくれるのはありがたいのですが、このファイル
> を作成するディレクトリをどこか１箇所に指定したいのです。
> どなたか、これが出来るe-lispのコードを知っておられませんでしょうか。


以前、たしかここの ML で流れたやつを拾ったと思うんですが
以下のようにすると、~/bak にバックアップファイルが集まります。
# Emacs-Lisp はさっぱりわかりません。^^;


(setq *backup-directory* "~/bak")
(cond ((not (fboundp 'make-backup-file-name-original))
       (fset 'make-backup-file-name-original
             (symbol-function 'make-backup-file-name))
       (defun make-backup-file-name (filename)
         (let ((backup-directory-path (concat *backup-directory* "/")))
           (if (and (file-exists-p (expand-file-name *backup-directory*))
                    (file-directory-p
                     (expand-file-name backup-directory-path)))
               (expand-file-name
                (make-backup-file-name-original
                 (file-name-nondirectory filename)) backup-directory-path)
             (make-backup-file-name-original filename))))))



--みわ 
<s_miwa _at_ mva.biglobe.ne.jp>
<rin _at_ mari-off.gr.jp>