;;; Time-stamp: <2005-01-14 10:40:10 john>

;;;; Save the register alist.

(defun save-registers ()
  "Save the register list."
  (save-list-to-file "regalist.el"
		     'register-alist
		     (lambda (reg-item)
		       (insert
			(format "   (%d . " (car reg-item))
			(as-plain-string (cdr reg-item)
					 "\"Could not save that readably\"") ")\n"))))

(save-registers)

;;; end of savers2/registers.el