Emacs part2

289 ：名無しさん＠お腹いっぱい。 ：01/10/23 10:57

>>288
俺は昔 fj に投稿されたのを使っている。自分自身、多世代の
バックアップを取っていないので判らないが、多分可能だと思う。

(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 "~/.backup/"))
(file-directory-p (expand-file-name "~/.backup/")))
(concat (expand-file-name "~/.backup/") (file-name-nondirectory fn))
(make-backup-file-name-original fn))))


Emacs21 では、簡単に済むみたい。
(add-to-list 'backup-directory-alist '("." . "~/.backup"))

read.cgi ver5.26+ (01/10/21-)