;;; Time-stamp: <95/05/03 09:08:31 john>

(defun save-x ()
  "Write X saver things."
  (message "Saving X things...")
  (if (fboundp 'x-set-background-color) 
      (progn
	(save-window-excursion
	  (find-file (expand-file-name "x.el"
				       emacs-save-restorers))
	  (erase-buffer)
	  (insert "(if (fboundp 'x-set-background-color) (progn\n")
	  (insert (format " (x-set-background-color \"%s\")\n"
			  (x-get-background-color)))
	  (insert (format " (x-set-foreground-color \"%s\")\n"
			  (x-get-foreground-color)))
	  (insert (format " (x-set-cursor-color \"%s\")\n"
			  (x-get-cursor-color)))
	  (insert "))\n")
	  (basic-save-buffer)
	  (kill-buffer (current-buffer))))))

(save-x)

;;; end of savers2/x.el