Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!cwjcc!hal!nic.MR.NET!tank!uxc!uxc.cso.uiuc.edu!m.cs.uiuc.edu!grunwald
From: grunwald@m.cs.uiuc.edu
Newsgroups: comp.emacs
Subject: Re: Saving window configurations
Message-ID: <4300020@m.cs.uiuc.edu>
Date: 28 Oct 88 04:02:00 GMT
References: <41546@yale-celray.yale.UUCP>
Lines: 31
Nf-ID: #R:yale-celray.yale.UUCP:41546:m.cs.uiuc.edu:4300020:000:895
Nf-From: m.cs.uiuc.edu!grunwald    Oct 27 23:02:00 1988


Check to see if you have ``saveconf.el'' in your Gnuemacs lisp directory.
This does something similar to what you want. Be warned -- you should
put the `recover-context' call at the very end.

I've also define the following, which doesn't save the context of
files in /tmp or RMAIL related files (since recovering RMAIL files
doesn't work).

BTW: does anyone know how to occasionally save the configuration incase
you don't exit cleanly?

(setq save-context-predicate
      (function
       (lambda (w)
	 (and
	  ; nil?
	  (buffer-file-name (window-buffer w))
	  ; /usr/tmp or /tmp?
	  (not (string-match "^\\(/usr\\)?/tmp/"
			       (buffer-file-name (window-buffer w))))
	  ; rmail mode?
	  (let
	      ((isok t))
	    (save-excursion
	      (set-buffer (window-buffer w))
	      (setq isok
		    (not (or (eq major-mode 'rmail-mode)
			     (eq major-mode 'mail-mode)))))
	    isok))
	  )))