Re: auto-save-desktop?

[Ehud Karni]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Tue, 15 Apr 2003 10:24:50 -0400, Steve Wainstead <swain@ampira.com> wrote:
> 
> Does anyone know of an extension (or an existing way in Emacs that I 
> missed) to automatically save the desktop? I'd like Emacs to do 
> desktop-save to a user-specified file periodically; I lost my X session 
> yesterday and had several open files.

I have the following code on my .emacs :

(defun desktop-save-in-home-dir ()
  "save desktop on home directory"
       (if (buffer-file-name)          ;; do only for real files
           (let (find-file-hooks       ;; must - do not loop on this function
                 kill-buffer-hook)     ;; must - do not loop on this function
               (desktop-save "~/")
               ))
       nil)

(add-hook 'find-file-hooks  'desktop-save-in-home-dir t)
(add-hook 'kill-buffer-hook 'desktop-save-in-home-dir t)

Ehud.


- -- 
 Ehud Karni           Tel: +972-3-7966-561  /"\
 Mivtach - Simon      Fax: +972-3-7966-667  \ /  ASCII Ribbon Campaign
 Insurance agencies   (USA) voice mail and   X   Against   HTML   Mail
 http://www.mvs.co.il  FAX:  1-815-5509341  / \
 mailto:ehud@unix.mvs.co.il                  Better  Safe  Than  Sorry
-----BEGIN PGP SIGNATURE-----
Comment: use http://www.keyserver.net/ to get my key (and others)

iD8DBQE+nCwtLFvTvpjqOY0RAtkHAJ485I4poJObLlrvsv05NDqTiptGEACfYjcp
PtfBs2pChwPdIa0Ac0hJBN0=
=aMF1
-----END PGP SIGNATURE-----