1 ; Ian's X initialisations.
3 (if (not (string-match "^18\." emacs-version))
6 ; (require 'x-fix-mouse)
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))
13 ; (x-set-cursor-color "white")
14 ; (x-set-foreground-color "white")
15 ; (x-set-background-color "black")
17 (if (boundp 'tool-bar-mode)