;;; Time-stamp: <2006-01-10 11:36:29 john>

;;;; save buffer list configuration

;;; We don't need this here, but the code we generate does
;; (require 'restorebuffer)

(require 'savebuffer)
(require 'save-emacs-state)
(require 'filenames-in-env)

(defun save-one-buffer-configuration1 (x)
  (save-one-buffer-configuration x "     "))

(defvar buffer-persistence-variables-hook nil
  "Output some variables for use while re-loading buffers.")

(defun save-file-buffers ()
  "Save any buffers containing plain files."
  (interactive)
  (save-window-excursion
    (find-file (expand-file-name "filebufs.el" emacs-save-restorers))
    (erase-buffer)
    (insert "(require 'restorebuffer)\n")
    (insert  "(let (;; (elibs nil)\n     (load-path (append (mapcar 'substitute-in-file-name\n   '(\n")
    (mapcar (lambda (dir) (insert "        \"" (unsubstitute-in-file-name dir) "\"\n")) load-path)
    (insert ")) load-path))")
    (run-hooks 'buffer-persistence-variables-hook)
    (insert ")\n")
    (mapcar 'save-one-buffer-configuration1
	    (reverse (buffer-list)))
    (insert ")\n")
    (basic-save-buffer)
    (kill-buffer (current-buffer))))

(save-file-buffers)

;;; end of savers2/buffers.el