Pour les amateurs d'emacs

[Valery Febvre <vfebvre@easter-eggs.com>]

Un nouveau site web francais exclusivement destine' a parler d'emacs
vient d'etre cree'
http://deesse.univ-lemans.fr:8120/

J'y ai trouve' cette astuce tres interessante a mon avis
Je l'ai tester et ca marche

A mettre dans son .emacs, le code suivant permet de ne plus polluer son
espace de travail avec tous les backups (les fichiers se terminant par
~), tout en les gardant précieusement. Créez un répertoire ~/backups et
rajoutez ce code. 
;;
;;  All the backups go to the same directory :
;;
(setq backup-directory (expand-file-name "~/backups"))
(setq directory-sep-char ?/)
(defun my-subst-char-in-string (org nu str)
  (let ( (i 0) (max (length str)) (res "") )
    (while (< i max)
      (progn (setq res (concat res 
			       (if (char-equal (elt str i) org)
				   (char-to-string nu)
				 (char-to-string (elt str i)))))
	     (setq i (+ 1 i))))
    (message res)
    res))
(defun make-backup-file-name (file)
  (let ( (fname   (concat 
		   (file-name-nondirectory file)
		   ", "
		   (my-subst-char-in-string ?: ?! (my-subst-char-in-string ?\\ ?!
(my-subst-char-in-string directory-sep-char ?! (file-name-directory
file))))
		   )))
    (concat backup-directory "/"
	    (substring fname 0 (min (length fname) 80)))))