;;; Time-stamp: <2002-01-22 11:30:36 jcgs>

(defun save-misc ()
  "Write assorted saver things."
  (save-window-excursion
    (find-file (expand-file-name "oddments.el"
				 emacs-save-restorers))
    (erase-buffer)
    (insert "(setq search-last-string " (prin1-to-string search-last-string)
	    "\n      search-last-regexp " (prin1-to-string search-last-regexp)
	    ")\n")
    (if current-context
	(insert (format "(require 'contexts)\n(context-load \"%s\")\n"
			current-context)))
    (basic-save-buffer)
    (kill-buffer (current-buffer))))

;;; use something based on this, too?
;; (for obno 0 (1- (length obarray))
;;     (if (user-variable-p (aref obarray obno))
;;	 (insert (symbol-name (aref obarray obno)) " ")))

;; (save-misc)

;;; end of savers2/misc.el