(defun my-set-font (font)
  "Change the current font under X.  Works with epoch, nemacs, or normal
gnu-emacs."
  (if (boundp 'epoch::version) (epoch::font font) (x-set-font font)))

(defun tiny ()  (interactive) (my-set-font "6x10"))
(defun small () (interactive) (my-set-font "6x13"))
(defun medium ()(interactive) (my-set-font "8x13"))
(defun big ()   (interactive) (my-set-font "9x15"))

(load "S-site")

(if window-system
    (progn
      (if (eq window-system 'x)
          (progn
            (require 'x-mouse)  ;; This line: thanks to Michelangelo Grigni
            (define-key mouse-map x-button-c-s-middle 'x-mouse-macro)
            (if (x-color-p)
                (progn
                  (x-set-foreground-color "white")
                  (x-set-background-color "Blue")
                  (x-set-cursor-color "yellow")
                  (x-set-mouse-color "cyan")
                  ))))))

(defun x-mouse-macro (arg)
  "Set point at indicated position and run the last macro"
  (x-mouse-set-point arg)
  (call-last-kbd-macro))