;;; Time-stamp: <2002-06-18 13:10:28 jcgs>

(require 'savebuffer)

(defun save-browser-pages ()
  (find-file (expand-file-name "browser-pages.el" emacs-save-restorers))
  (let ((saver (current-buffer)))
    (erase-buffer)
    (dolist (buffer (buffer-list))
      (when (and (eq (buffer-mode buffer) 'w3-mode)
		 (string= (aref url-current-object 0) "file"))
	(savebuffer-mark-buffer-for-no-save buffer)
	(set-buffer buffer)
	(let* ((filename (aref url-current-object 5))
	       (place (point)))
	  (set-buffer saver)
	  (goto-char (point-min))
	  (insert (format "(w3-find-file \"%s\")\n" filename)))))
    (set-buffer saver)
    (goto-char (point-min))
    (insert ";; local files being read via browser:\n")
    (basic-save-buffer)
    (kill-buffer nil)
    ))

(save-browser-pages)