;;; Time-stamp: <93/02/03 13:04:13 john>

(defvar wca (current-window-configuration))
(defvar wcb (current-window-configuration))
(defvar wwc nil)

(defun twc ()
  "Toggle window configuration."
  (interactive)
  (if wwc
      (progn
	(setq wca (current-window-configuration))
	(set-window-configuration wcb)
	(setq wwc nil)
	)
    (progn
	(setq wcb (current-window-configuration))
	(set-window-configuration wca)
	(setq wwc t)
      )))

;;; end of window-configurations.el