[comp.emacs] Corrected elisp chunk to abuse X windows

harp@cadillac.CAD.MCC.COM (Christopher North-Keys) (07/19/90)

;;-------X     (Christopher North-Keys, 1990)
(if window-system
    (progn
      (server-start)
      (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 "DarkGreen")
                  (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))

-- 
______________________________________________________________________________
Christopher North-Keys                                  Assoc. Systems Analyst
Group Talisman                                                  Harp[@Mcc.Com]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~