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

(defvar setup-Johns-terminal 'setup-Johns-terminal
  "Set up some of the function keys the way I like them.")

(defun setup-Johns-terminal ()
  "Set up some of the function keys the way I like them."
  (interactive)
  (global-set-key "\eOP" 'beginning-of-defun)
  (global-set-key "\eOQ" 'end-of-defun)
  (global-set-key "\eOR" 'select-defun)
  (global-set-key "\eOS" 'deselect-defun)
  (global-set-key "\eOC" 'forward-sexp)
  (global-set-key "\eOD" 'backward-sexp)
  (global-set-key "\eOB" 'down-list)
  (global-set-key "\eOA" 'backward-up-list)
  (global-set-key "\eOM" 'save-all-buffers-no-ask)
  )

(defun swap-fbob (screen)
  "Swap foreground and background colours of SCREEN."
  (let ((ob (epoch::background nil screen))
	(fb (epoch::foreground nil screen)))
    (save-window-excursion
      (set-buffer "*scratch*")
      (save-window-excursion
	(goto-char (point-max))
	(insert (format "ob=%s of=%s\n"
			ob of))
      ))
    (epoch::foreground ob screen)
    (epoch::background of screen)))

;%; (if (string-match "Epoch" (emacs-version))
;%;     (progn
;%;       (epoch::font "-*-*-medium-r-*-*-16-*-*-*-c-*-*-*" (epoch::minibuf-screen))
;%;     (swap-fbob (epoch::minibuf-screen))))

;;; end of terminal.el