;;; Time-stamp: <95/05/03 09:07:29 john>

(defun save-spellings ()
  "Write assorted spelling things."
  (message "Saving spellings...")
  (save-window-excursion
    (let ((find-file-hooks nil)
	  (find-file-not-found-hooks nil)
	  (emacs-lisp-mode-hook nil))
      (find-file (expand-file-name "spellings.el"
				   emacs-save-restorers))
      (erase-buffer)
      (insert "(setq spelling-corrections '(\n ")
      (mapcar '(lambda (correction-item)
		 (insert (prin1-to-string correction-item) "\n "))
	      spelling-corrections)
      (insert ")\n spelling-non-corrections '(\n ")
      (mapcar '(lambda (correction-item)
		 (insert (prin1-to-string correction-item) "\n "))
	      spelling-non-corrections)
      (insert "))\n")
      (basic-save-buffer)
      (kill-buffer (current-buffer)))))

(save-spellings)

;;; end of savers2/spellings.el