;;;; save the autocue state
;;; Time-stamp: <2002-09-12 11:33:54 jcgs>

(require 'save-emacs-state)

(defun save-autocue ()
  "Write assorted autocue things."
  (interactive) ;; for testing
  (message "Saving autocue...")
  (save-window-excursion
    (find-file (expand-file-name "autocue.el"
				 emacs-save-restorers))
    (erase-buffer)

    (insert (format "(setq autocue:suspended-file-names '%S\n autocue:suspended-buffer-names '%S)\n"
		    autocue:suspended-file-names autocue:suspended-buffer-names))

    (basic-save-buffer)
    (kill-buffer (current-buffer))))

(save-autocue)