1 ; Ian's X initialisations.
3 (if (string-match "^19\." emacs-version)
7 (define-key mouse-map x-button-left-up 'x-cut-text-if-moved)
8 (define-key mouse-map x-button-middle 'x-cut-text)
9 (define-key mouse-map x-button-c-middle 'x-cut-and-wipe-text)
10 (define-key mouse-map x-button-right 'x-paste-text))
12 ; (x-set-cursor-color "white")
13 ; (x-set-foreground-color "white")
14 ; (x-set-background-color "black")