;;; Time-stamp: <2004-10-06 11:40:17 guest05>

(require 'save-emacs-state)

(defun save-history ()
  "Write command history."
  (interactive)
  (save-list-to-file
   "history.el"
   'command-history
   (lambda (history-element)
     (insert
      (as-plain-string history-element
		       "(message \"Could not save this item\")")))))

(save-history)

(command-log-save-to-file)

;;; end of savers2/history.el